module1.bas

以上所有操作应用程序及数据库均要对其进行合法性有效性验证及相关约束条件检查

Attribute VB_Name = "Adoconnection"
Public Function ExecSql(ByVal strSql As String)
With adoRs
If .State = adStateOpen Then
.Close
End If

    .ActiveConnection = Aconnection
    .Source = strSql
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockOptimistic
    .Open
    End With
End Function