DataGrid

Как программно заполнить данными элемент DataGrid?
Я использую ADO.
Подключаюсь к базе и создаю набор записей таким образом:
----------------------------------------------------------------------------------------------------
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSQL As String

Set cn = New ADODB.Connection
cn.ConnectionString = "Driver=Microsoft Access Driver (*.mdb); DBQ=" & App.Path & "\Data.mdb"
cn.Open
sSQL = "SELECT * FROM clients"

rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

rs.ActiveConnection = cn
rs.Source = sSQL
rs.Open
----------------------------------------------------------------------------------------------------
Data.mdb - база данных
Clients - таблица в базе данных