module1.bas

一个用VB编写的银行模拟系统 链接了数据库

Attribute VB_Name = "Module1"
Public adoCon As ADODB.Connection
Public adoRS As ADODB.Recordset
Public Sub connectDB()
Set adoCon = New ADODB.Connection
adoCon.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=银行管理;Data Source=jsj2449"
adoCon.Open
Set adoRS = New ADODB.Recordset
Set adoRS.ActiveConnection = adoCon
adoRS.LockType = adLockOptimistic
adoRS.CursorType = adOpenDynamic
End Sub