Public cn1 As New ADODB.Connection
Public cn2 As New ADODB.Connection
Public rs As New ADODB.Recordset
    '建立數據庫連結
    If cn1.State = adStateOpen Then cn1.Close
    cn1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
                          "Persist Security Info=False;Initial Catalog=abc" & _
                          "Data Source=farwin-main" 
    cn1.open