Problema con UPDATE

Tengo este codigo para hacer un update en una base de datos SQL Server:
Try
Dim Insertar As Boolean = ExecuteNonQuery("UPDATE visitas " & _
"SET recordp = '" & txtRecordp.Text & "'," & _
"fechaadm = '" & mskFechaadm.Text & "'," & _
"codigos = '" & txtCodigoSeguro.Text.Trim & "'," & _
"poliza = '" & txtPoliza.Text.Trim & "'," & _
"grupo = '" & txtGrupo.Text.Trim & "'," & _
"nombres = '" & txtNombreSeg.Text.Trim & "') WHERE (recordn = '"
& txtRecordn.Text.Trim & "')")
If Insertar Then
MsgBox("Grabado correctamente...")
Else
MsgBox("Ha ocurrido un error...")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try

Pero me presenta el suiguiente error:

Cast from string "UPDATE visitas SET recordp = '0'" to type 'Long' is not
valid.

Pueden ayudarme a resolver esto.
Gracias de antemano..