help this n00b

[CosmicLogick]

This following piece of code wont work, i have no idea what i did
wrong.
Data.mdb is the database file
Admin is the table
username and password are fields
oldpasstxt.Text and newpasstxt.Text are from input boxes.
The error vs.net gives me is

olecmd.ExecuteN onQuery()

on the 3rd last line of what i pasted.
any help would be deeply appreciated :{

code:

Private Sub okchange_btn_Cl ick(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles okchange_btn.Cl ick

Dim conn As OleDbConnection
Dim query As String
Dim adapter As OleDbDataAdapte r
Dim ds As DataSet
Dim connstring As String
Dim olecmd As OleDbCommand
Dim ole As String

connstring = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=Data.mdb ;
Jet OLEDB:database password=passwo rd"
conn = New OleDbConnection (connstring)
query = "select * from Admin where username = 'admin' and Password =
'" & oldpasstxt.Text & "'"
olecmd = New OleDbCommand(qu ery, conn)
conn.Open()
Dim dr = olecmd.ExecuteR eader(CommandBe havior.CloseCon nection)
If dr.Read = True Then
connstring = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=Logick.c os;
Jet OLEDB:database password=cosmic logick"
conn = New OleDbConnection (connstring)
query = "UPDATE Admin SET password = ('" & newpasstxt.Text &
"') where username = 'admin'"
olecmd = New OleDbCommand(qu ery, conn)
conn.Open()
olecmd = New OleDbCommand(qu ery, conn)
olecmd.ExecuteN onQuery()
conn.Close()

End Sub

[Ken Tucker [MVP]]

Hi,

Why dont you create a new connection and command variable instead of
using the old ones after you check to see you can update the other database.
Please post the exact error message.

Ken
-------------------------
"CosmicLogi ck" <lo****@ananzi. co-dot-za.no-spam.invalid> wrote in message
news:40******** **@127.0.0.1...

This following piece of code wont work, i have no idea what i did
wrong.
Data.mdb is the database file
Admin is the table
username and password are fields
oldpasstxt.Text and newpasstxt.Text are from input boxes.
The error vs.net gives me is

olecmd.ExecuteN onQuery()

on the 3rd last line of what i pasted.
any help would be deeply appreciated :{

code:

Private Sub okchange_btn_Cl ick(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles okchange_btn.Cl ick

Dim conn As OleDbConnection
Dim query As String
Dim adapter As OleDbDataAdapte r
Dim ds As DataSet
Dim connstring As String
Dim olecmd As OleDbCommand
Dim ole As String

connstring = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=Data.mdb ;
Jet OLEDB:database password=passwo rd"
conn = New OleDbConnection (connstring)
query = "select * from Admin where username = 'admin' and Password =
'" & oldpasstxt.Text & "'"
olecmd = New OleDbCommand(qu ery, conn)
conn.Open()
Dim dr = olecmd.ExecuteR eader(CommandBe havior.CloseCon nection)
If dr.Read = True Then
connstring = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=Logick.c os;
Jet OLEDB:database password=cosmic logick"
conn = New OleDbConnection (connstring)
query = "UPDATE Admin SET password = ('" & newpasstxt.Text &
"') where username = 'admin'"
olecmd = New OleDbCommand(qu ery, conn)
conn.Open()
olecmd = New OleDbCommand(qu ery, conn)
olecmd.ExecuteN onQuery()
conn.Close()

End Sub