Izvoz podatkov v dataGrid-u ??

Imam odprto formo z praznimi polji (ime, priimek, naslov...). To formo uporabljam za vnos novih podatkov v *.mdb bazo prek Adodc. Kako lahko naredim, da bi v ta tekstovna polja vnesel že vnesene podatke v bazi. Npr. odprem formo z dataGridom, ki vsebuje že vpisane podatke, 2x kliknem ali pritisnem Enter na izbrano vrstico z podatki in podatki te vrstice se mi prenesejo v formo z tekstovnimi polji - vsak podatem v svoje polje seveda. Hvaležen bom za vsak nasvet...

Nekako takole:

Dim cnRepPrev As New ADODB.Connection
cnRepPrev.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=e:\BSP\BSP97.mdb"

Dim RepPrevSQL As String
Dim rsRepPrev As New ADODB.Recordset
Dim strKomandaRepPrev As String

Dim polje1 As String
Dim polje2 As String
Dim polje3 As String
Dim polje4 As String
Dim polje5 As String.... itd.

Dim Iskani As String
Iskani = Label2.Caption
RepPrevSQL = "SELECT * FROM tblXXXX WHERE ID = '" & Iskani & "'"

rsRepPrev.Open RepPrevSQL, cnRepPrev, adOpenKeyset, adLockOptimistic, adCmdText

Do While Not rsRepPrev.EOF
polje1 = rsRepPrev.Fields(0).Value
polje2 = rsRepPrev.Fields(1).Value...itd.


strKomandaRepPrev = "INSERT INTO tblXXXX([ID], [xxx] ..itd. " & _
"VALUES ('" & polje1 & "', '" & polje2 & "', '" & polje3 & "', '" & polje4 & "', '" & polje5 & "', '" & polje6 & "', '" & polje7 & "'.....itd.) "

cnRepPrev.Execute strKomandaRepPrev

rsRepPrev.MoveNext

Loop

To mora delati.