Как DataGrid связать с таблицей в БД? - VB

<font color="blue">Dim</font> vBookmark <font color="blue">As</font> Variant
<font color="blue">Private</font> <font color="blue">Sub</font> Add()
    vBookmark = rs.Bookmark
    rs.AddNew
<font color="blue">End</font> <font color="blue">Sub</font>
<font color="blue">Private</font> <font color="blue">Sub</font> Cancel()
    rs.CancelBatch
    <font color="blue">If</font> rs.RecordCount >= vBookmark <font color="blue">Then</font>
        rs.Bookmark = vBookmark <font color="00AA00">' возврат на позицию до ввода новой строки</font>
    <font color="blue">Else</font>
        rs.MoveFirst
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>