Quando tento rodar da este erro de "compile error: Expected function or variable" o que eu faço??? por favor ja faz 2 semanas que tento!!!
Private Sub cmdsalvar_Click()
Dim rs As ADODB.Recordset
Dim vCodigo As Long
On Error GoTo line_error
If txtcod = "" Then
Set rs = cn.Execute("select max(codigo) as cod from tab_clientes")
If (rs.BOF And rs.EOF) Or IsNull(rs("cod")) Then
vCodigo = 1
Else
vCodigo = rs("cod") + 1
End If
End If
cn.Execute "Insert Into tab_clientes values (" & vCodigo & "," & txtrazao & "','" & txtcontato & "','" & txtfone & "','" & txtinscr & "','" & txtcnpj & "','" & txtfax & "','" & txtendereco & "','" & txtcep & "','" & txtbairro & "','" & txtcidade & "','" & txtestado & ")"
txtCodigo = ""
txtrazao = ""
txtcontato = ""
txtfone = ""
txtinscr = ""
txtcnpj = ""
txtfax = ""
txtendereco = ""
txtcep = ""
txtbairro = ""
txtcidade = ""
txtestado = ""
ListaClientes
SetFocus.txtNome
Else
If MsgBox("Este registro já existe. Deseja alterá-lo ? ", vbQuestion + vbYesNo, "Confirmação") = vbYes Then
cn.Execute "Update tab_clientes Set Nome = '" & txtCodigo & "," & txtrazao & "','" & txtcontato & "','" & txtfone & "','" & txtinscr & "','" & txtcnpj & "','" & txtfax & "','" & txtendereco & "','" & txtcep & "','" & txtbairro & "','" & txtcidade & "','" & txtestado & ")"
txtCodigo = ""
txtrazao = ""
txtcontato = ""
txtfone = ""
txtinscr = ""
txtcnpj = ""
txtfax = ""
txtendereco = ""
txtcep = ""
txtbairro = ""
txtcidade = ""
txtestado = ""
ListaClientes
txtNome.SetFocus
End If
End Sub
