اريد الربط بين الDataGrid والتكست بوكس

قمت بعرض محتويات الجدول على التكست وعلى DataGrid

ولله الحمد بتقنية الادو

والمشكلة اني اريد عندما اضغط على DataGrid يعطيني بيانات السجل في التكست بوكس

هل من مساعدة

رغم اني جربت

Set DataGrid41.DataSource = RS
DataGrid41.Refresh


وجربت

If Not RS.EOF Then RS.MoveNext

If RS.EOF And RS.RecordCount > 0 Then

Beep

RS.MoveLast

End If

dgrid

Call ViewRecord

Call LENRecord

بدون جدوي

الربط

Private Sub mohanna()
If db.State = adStateOpen Then db.Close
st = "provider = microsoft.jet.OLEDB.4.0;"
st = st & "data source =" & App.Path & "\data.mdb"
db.ConnectionString = st
db.CursorLocation = adUseClient
db.Open
If RS.State = adStateOpen Then RS.Close
RS.Open "workers", db, adOpenDynamic, adLockOptimistic
dgrid
End Sub

وبال

Public db1 As New ADODB.Connection

Public rs22 As New ADODB.Recordset

Public AddOREdit As Boolean

Public MsgON As Boolean

'

Public Sub OpenDatabase()

'

If db.State = adStateClosed Then

db.CursorLocation = adUseServer

db.Provider = "Microsoft.JET.OLEDB.4.0;"

db.Open App.Path & "\data.mdb"

rs22.Open "[workers]", db, adOpenStatic, adLockPessimistic

'

End If

End Sub

'

Public Sub OpenTable()

'

If rs22.State = adStateOpen Then rs22.Close

rs22.Open "[workers]", db, adOpenStatic, adLockPessimistic

End Sub