Option Explicit Public Con As New ADODB.Connection ------------------------------------------------------------------------------ Public Sub Cnnect()     If Con.State = 1 Then         Con.Close     End If     Con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI; _                             Persist Security Info=False;Initial Catalog=jd"     Con.Open End Sub ------------------------------------------------------------------------------- Public Sub record(ByVal sql As String, _     ByRef rs As ADODB.Recordset)     If rs.State = 1 Then         rs.Close     End If     rs.CursorLocation = adUseClient     rs.CursorType = adOpenDynamic     rs.LockType = adLockOptimistic    rs.Open sql, Con, , , adCmdText End Sub ------------------------------------------------------------------------------- Public Sub Discon()     If Con.State = 1 Then         Con.Close     End If End Sub

评论