Private Sub Command1_Click()

    Dim Tesdb As New AccessDB    'AccessDB是类模块的名字
'-------------------------------------------------------------------
    Tesdb.ExSQL "Update TA SET A=" & Int(Rnd() * 100) & ", B=CHR(A), C=ASC(B)"   '在此写入SQL语句
'---------------------------------------------------------------------
    Me.Recalc
    End Sub

Private Sub Command2_Click()
    Dim Tesdb As New AccessDB    'AccessDB是类模块的名字
'----------------------------------------------------------
    Tesdb.GetRS " Select * FROM TA "     '写入SQL查询语句
'--------------------------------------------------------
    MsgBox Tesdb.rs.RecordCount, , "RecordCount"
End Sub

附   件:

点击下载此附件

图   示: