module1.bas

一个图书馆的VB做的mis系统

Attribute VB_Name = "Module1"
Public con As New ADODB.Connection
Public admin_rs As New ADODB.Recordset
Sub main()



con.ConnectionString = "driver=sql server;server=.;uid=sa;pwd=123;database=lib"

con.Open
MsgBox "link ok"

admin_rs.Open "admin", con, adOpenDynamic, adLockOptimistic, 2

MsgBox "rs link ok"

Form1.Show
End Sub