Attribute VB_Name = "Module1"
Option Explicit
Public con As ADODB.Connection
Public rct As ADODB.Recordset
Public grade As Integer


Public Function connecttoserver() As Boolean
    On Error GoTo on_error
    Set con = New ADODB.Connection
    con.Open "dsn=book"
    connecttoserver = True
    Exit Function
on_error:
    MsgBox "連接失敗", vbOKOnly, "打開數(shù)據(jù)庫錯誤"
    connecttoserver = False
End Function

Public Function closeconnect() As Boolean
    On Error Resume Next
    If (Not con Is Nothing) Then con.Close
    Set con = Nothing
End Function

Public Function runsql(ByVal strsql As String) As Boolean
'On Error GoTo on_error
    Set rct = New ADODB.Recordset
    rct.Open strsql, con, adOpenDynamic, adLockOptimistic, -1
    runsql = True
    Exit Function
on_error:
    MsgBox "執(zhí)行錯誤", vbOKOnly
    runsql = False
End Function