Public PublicStr As String Private con As New ADODB.Connection Private rs As New ADODB.Recordset Dim str As String
Public Function cnn() As ADODB.Connection '共享数据库连接 Set cnn = New ADODB.Connection cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=sunrise#;Initial Catalog=db_SSS" End Function
