myConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\test\db1.mdb;"
Dim myConnection As New OleDbConnection(myConnectionString)
myConnection.Open()
myCommand.Connection.Close()

解决方案 »

  1.   

    Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & db & ""))
    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()