Public Sub Main()
Call Create_Conn
frmMain.Show
End Sub
Public Sub Create_Conn()
Set DBconn = CreateObject("ADOCE.Connection.3.1")
With DBconn
If .State = 1 Then .Close
DBconn.Open "Provider=cedb;DataSource=" & App.Path & "\DataBase\TName.cdb"
End With
End Sub
调试报错如下:
An error was encountered
while running this program:
Expected statement