module1.bas

这是一个学生信息管理系统

Attribute VB_Name = "Module1"
Option Explicit
Public conn As New connection
Sub toConnect()
Dim sql As String
  sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/student.mdb;Persist Security Info=False"
  If conn.State = adStateOpen Then
  Else
    conn.Open sql
  End If
End Sub