txlmodel.bas

来自「通讯录」· BAS 代码 · 共 16 行

Attribute VB_Name = "Module1"
Public strConn As String
Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Public strSQL As String

Sub main()
MDIMain.Picture = LoadPicture(App.Path + "\img\background.bmp")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
'strConn = strConn + "Data Source=" + App.Path + "\db\txldb.mdb;Jet OLEDB:Database Password=admin"
strConn = strConn + "Data Source=" + App.Path + "\db\txldb.mdb"
conn.Open strConn
frmLogin.Show
End Sub