Pati

já tem no código, é que eu não postei ele todo! o erro tá nessa função LimparTela vou postar ele todo Private Sub LimparDados() txtNomeUsuario.Text = Empty txtEndereco.Text = Empty txtCidade.Text = Empty txtEstado.Text = Empty txtCep.Text = Empty txtTelefone.Text = Empty End Sub Private Sub LimparTela() LimparDados Toolbar1.Buttons(3).Enabled = False txtCodUsuario.Text = Empty txtCodUsuario.SetFocus End Sub quando ele grava dá o erro, e zera os campos mas o primeiro campo que é txtCodUsuario.Text fica travado!!!!

pessoal, to seguindo um tutorial, mas tá dando um erro que eu não to entendendo olha só: With cnnComando .ActiveConnection = cnnBiblio .CommandType = adCmdText If vInclusao Then .CommandText = "INSERT INTO Usuarios (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 CodUsuario =" & txtCodUsuario.Text & " ,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 errGravacao: With Err If .Number <> 0 Then MsgBox "Houve um erro durante a gravação dos dados na tabela.", vbApplicationModal + vbExclamation + vbOKOnly, "Erro" .Number = 0 GoTo Saida End If End With ele tá inserindo ou alterando, e aparece o box com a mensagem de sucesso e depois da erro! mas depois que ele fez tudo tá erro! como é isso?? bem, fico aguardando um help! falowwww