module1.bas

学生成绩管理

Attribute VB_Name = "Module1"
Option Explicit
Public con As New ADODB.Connection '数据库连接

Public a As String
Public b As String
Public d As String



Function st(a As String, b As String, d As String) As Boolean
con.ConnectionString = ("Provider=SQLOLEDB;User ID=" & a & ";PWD=" & b & ";Initial Catalog=student;Data Source=" & d & "")
End Function


Function st1() As Boolean
con.ConnectionString = "Provider=SQLOLEDB;User ID=" & a & ";PWD=" & b & ";Initial Catalog=student;Data Source =" & d & ""

End Function