myConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\test\db1.mdb;"
Dim myConnection As New OleDbConnection(myConnectionString)
myConnection.Open()
myCommand.Connection.Close()
Dim myConnection As New OleDbConnection(myConnectionString)
myConnection.Open()
myCommand.Connection.Close()
Dim MyCommand As OleDbCommandMyCommand = New OleDbCommand("Select studid,userid,userpwd,locked from student where userid='" & membername & "'", conn)MyCommand = New OleDbCommand(strsql, conn)
conn.Open()
Dim drr As OleDbDataReader = MyCommand.ExecuteReader.
.
.
MyCommand1.Dispose()
drr.Close()
conn.Close()