vb DataModel

 
Sub establishConnection()
    Set conn = New Connection
    conn.CursorLocation = adUseClient
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "/Library.mdb;Persist Security Info=False"
End Sub

Function getRecordSet(sql As String) As Recordset
    Dim rs As New Recordset
    rs.Open sql, conn, adOpenDynamic, adLockOptimistic
    Set getRecordSet = rs
End Function

Sub updateBySQL(sql As String)
    Dim cmd As New command
    cmd.CommandType = adCmdText
    cmd.CommandText = sql
    Set cmd.ActiveConnection = conn
    cmd.Execute
End Sub