How can send selected data from a datagrid to another datagrid?

[sivasweety]

I have created a List of contents in a database table which will display in Datagrid window. The user may select one or many data from the Datagrid. If data selected data should be shown in Another datagrid. If a content is not available user may be allowed to add additional 'List of contents'. The addl. data also to be included automatically in that database table. The project is for our deaf association. Advance thanks pl.

[Crystaltech]

''' may be this will help you

Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
 
If KeyCode = 13 Then
If TL.State = 1 Then TL.Close
TL.Open "select Field Name from Table Name where Field Name  = " & DataGrid1.text & "", con, adOpenKeyset, adLockOptimistic
 
'''Storing this records to another table
 
With TL
.AddNew
    ! FieldName = DataGrid1.Columns(0)
    .Update
    .Close
End With
 
If TL.State = 1 Then TL.Close
TL.Open "select Field Name from Tabel 2 order by Field Name", con, adOpenKeyset, adLockPessimistic
 
If TL.RecordCount > 0 Then
   Set DataGrid2.DataSource = TL
End If
    End If
 

[sivasweety]

Problem is in
If TL.State = 1 Then TL.Close
(TL ...not described in declaration..so please explain)