module1.bas

一个vb的mis系统

Attribute VB_Name = "Module1"
'执行TSQL函数
Public Function runtsql(ByVal tsql As String) As Boolean
    Dim con As New ADODB.Connection
    con.ConnectionString = "driver={SQL Server};server=.;uid=sa;pwd=;database=master"
    con.ConnectionTimeout = 5
    con.Open
    con.Execute (tsql)
    con.Close
    runtsql = True
End Function