Private Sub GravarDados() Dim cnnComando As New ADODB.Command Dim vConfMsg As Integer Dim vErro As Boolean On Error GoTo errGravacao vConfMsg = vbExclamation + vbOKOnly + vbSystemModal vErro = False If txtNomeUsuario.Text = Empty Then MsgBox "O campo Nome não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtEndereco.Text = Empty Then MsgBox "O campo Endereço não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtCidade.Text = Empty Then MsgBox "O campo Cidade não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtEstado.Text = Empty Then MsgBox "O campo Estado não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtCEP.Text = Empty Then MsgBox "O campo CEP não foi preenchido.", vConfMsg, "Erro" vErro = True End If If vErro Then Exit Sub Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = cnnBiblio .CommandType = adCmdText If vInclusao Then .CommandText = "INSERT INTO Usuario " & _ " (CodUsuario, NomeUsuario, Endereco, Cidade, " & _ " Estado, CEP, Telefone) VALUES ('" & _ txtCodUsuario.Text & ",'" & _ txtNomeUsuario.Text & ",'" & _ txtEndereco.Text & ",'" & _ txtCidade.Text & ",'" & _ txtEstado.Text & ",'" & _ txtCEP.Text & ",'" & _ txtTelefone.Text & ",');" Else .CommandText = "UPDATE Usuarios SET " & _ "NomeUsuario = '" & txtNomeUsuario.Text & "'," & _ "Endereco = '" & txtEndereco.Text & "'," & _ "Cidade = '" & txtCidade.Text & ",'" & _ "Estado = '" & txtEstado.Text & ",'" & _ "CEP = '" & txtCEP.Text & ",'" & _ "Telefone = '" & txtTelefone.Text & ",'" & _ "WHERE CodUsuario = " & txtCodUsuario.Text & ";" End If .Execute End With MsgBox "Gravação concluída com sucesso.", _ vbApplicationModal + vbInformation + vbOKOnly, _ "Gravação OK" LimparTela Saida: Screen.MousePointer = vbDefault Set cnnComando = Nothing Exit Sub errGravação: With Err If .Number <> 0 Then MsgBox "Houve um erro durante a gravação dos dados na tabela.", _ vbExclamation + vbOKOnly + vbApplicationModal, "Erro" .Number = 0 GoTo Saida End If End With End Sub aparece isso quando eu tente gravar os dados na db como eu faço pra resolver????