não grava registro em tabela acess

estou iniciando em vb e ao praticar um exemplo de uma apostila esta dando erro ao gravar um registro na tabela -2147217908 a sintaxe do comando é a seguinte ...desde ja agradeço quem puder ajudar....With cnnComando .ActiveConnection = cnnBiblio .CommandType = adCmdText'Verifica a operação e cria o comando SQL correspondente: If vInclusao Then'Inclusão: .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'Alteração: .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