Function to insert records inserts record, but somehow deletes old record

[Mazdaspeed6]

I am trying to use a form to insert new records into a table. I have a function that is called,

Function Insert_Asset_Click(ByVal AssetTag As String, ByVal Make As String, ByVal Model As String, ByVal ServiceTag As String)
    Dim conn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim rs As ADODB.Recordset
    Dim myErr As ADODB.Error
    Dim strError As String
    On Error GoTo myHandler
    'Dim sConn As String
    Dim query As String

    'MsgBox "Got Here" 'Debug command
    
    Set conn = CurrentProject.Connection
       
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText = "INSERT INTO Device(AssetTag, Make, Model, ServiceNum) VALUES(" + AssetTag + ", " + Make + ", " + Model + ", " + ServiceNum + ");"
    cmd.CommandType = adCmdText
    
    'Set rs = cmd.Execute
    
    DoCmd.RunMacro "Converted Macro-Clear_Insert_Device", 1
    
    'Close connection to database
    conn.Close
    Exit Function

I have no idea why all i see in the table is one record after multiple attempts to insert different records into the table. I get no error messages. I am new to coding with VBA so i bet its something simple, but i'm totally confused.

[weekend00]

you didn't run the insert statement because you commented it out:
'Set rs = cmd.Execute

another thing, your commandText is not right, should be:

cmd.CommandText = "INSERT INTO Device(AssetTag, Make, Model, ServiceNum) VALUES('" + AssetTag + "', '" + Make + "', '" + Model + "', '" + ServiceNum + "');"

Please modify and run again.

[Mazdaspeed6]

Thanks for the help but its still not working. I run it and the record gets inserted, but when I try to select all the records from the table, only one gets returned, the record i most recently added.

[weekend00]

I don't know what this Macro do:
DoCmd.RunMacro "Converted Macro-Clear_Insert_Device", 1
may it delete the original record?

[Mazdaspeed6]

Its supposed to run a macro to clear the form, but it doesn't work. I tried commenting it out and running the function, still doesn't keep the old record.

[weekend00]

Please check all the steps of adding a record, besides(before and after) this function.

[Mazdaspeed6]

I figured it out, there was some other code suppressing the error but i thought it was going to print the error. I was passing the value ServiceTag in the function but i used the variable ServiceNum when writing the SQL statement. What i don't understand is how it still inserted the record even with the error. But i figured out what the issue i was having was.

Thanks for your help.

[weekend00]

u r welcome