Hello, trying to write my first ado command object, not sure what is going wrong, the sql statement runs in GUI and DoCmd****n SQL, but not in the following code, get error; field to small to accept the amount of data ?, has me confused as again sql runs with other execution methods. Thank for any help

Private Sub Command51_DblClick(Cancel As Integer)

Dim Cmd As ADODB.Command
Dim iSQL As String
Dim recs As Long

Set Cmd = New ADODB.Command


iSQL = "INSERT INTO tblCustomersFinished ( CustomerID, FirstName, LastName, Address, Apt, City, State, Phone, Zip, Contact, Physician, DOB, Model, SerialNumber, Insurance, Diagnosis)" & _
"SELECT CustomerID, FirstName, LastName, Address, Apt, City, State, Phone, Zip, Contact, Physician, DOB, Model, SerialNumber, Insurance, Diagnosis FROM ztblParts1"



Set Cmd.ActiveConnection = CurrentProject.Connection
Cmd.CommandText = iSQL

Cmd.CommandType = adCmdText
Cmd.Execute RecordsAffected:=recs, options:=adExecuteNoRecords
Set Cmd = Nothing

Exit Sub
ConnectionError:
MsgBox "There was an Error Connecting to the DataBase." & Chr(13) _
& Err.Number & ", " & Err.Description

End Sub