Attribute VB_Name = "Declearation"
'保存執行SQL語句的字符串
Public SqlStmt As String
'服務器名稱
Public ServerName As String
'讀取表中列值的變量
Public ColVal As String
'保存藥品入庫信息
'Public Import As New Durg_import
'保存庫存藥品信息
'Public Information As New Drug_info
'保存藥品出庫信息
'Public Export As New Drug_export

Public objConn As New ADODB.Connection
Public objRS As New ADODB.Recordset



Public Sub OpenDB()
    objConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;password=sa;Initial Catalog=Drug;Data Source=COLIN"
    objConn.Open
    
End Sub

Public Sub CloseDB()
    objConn.Close
End Sub