Insert Into syntax error

full code, If helps:

Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String
    Dim codcad As Integer   'contra codigo do registro
    Dim n As Long

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    cn.ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & strDB & ";" & _
    "Extended Properties=Excel 8.0"
    cn.CursorLocation = adUseClient
    cn.Open
    strSQL = "SELECT * FROM [tblcadprocesso$]"
    Set rs = cn.Execute(strSQL)
    rs.MoveLast
    codcad = rs.Fields(0)
    codcad = codcad + 1
    strSQL = ""
    strSQL = "INSERT INTO [tblcadprocesso$] " & _
    "(CODIGOC, CSRD, CPROCNUM, CPROCASS, CDATA) " & _
    "VALUES " & codcad & ", " & txtSRD.Text & ", " & txtProcesso.Text & ", " & _
    "" & txtAssunto.Text & ", " & txtData.Text & ""

    cn.Execute (strSQL)
    cn.Close

I'm no expert, but I would try removing the double quotes and the ampersand at the beginning of the 4th line in your code? It might also make things a little clearer if you only use double quotes to enclose the whole string and single quotes inside.

sbkeenan,

I tried what you suggested but it didn't work.

Anyway, thank you for your help.

[]'s

I think you may also need to enclose the values in brackets.

Guys,

I got the solution. The problem was in how I was concatenating strings like sbkeenan indicated.

The correct syntaxe is:

strSQL = "INSERT INTO [tblcadprocesso$] " & _
    "(CODIGOC, CSRD, CPROCNUM, CPROCASS, CDATA) " & _
    "VALUES (" & codcad & ", " & txtSRD.Text & ", '" & txtProcesso.Text & "', " & _
    "'" & txtAssunto.Text & "', '" & txtData.Text & "')"

Thank you very much, guys!

[]'s