module1.vb

学生成绩管理系统

Module Module1
    Public conn As New OleDb.OleDbConnection
    Public da As New OleDb.OleDbDataAdapter
    Public cmd As New OleDb.OleDbCommand
    Public ds As New DataSet
    Public st As New DataTable

    Public Sub db()
        conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source='D:\student.mdb'"
        cmd.Connection = conn
    End Sub

End Module