how can i move the data on datagrid to another datagrid? by using cmdsold button

[kogtong11]

Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim conn2 As New ADODB.Connection
Dim rec2 As New ADODB.Recordset
 
 
Private Sub cmdSearch_Click()
conn.Close
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Admin\My Documents\MynewSystem\database\PRODUCTS.MDB"
rec.CursorLocation = adUseClient
rec.Open "Select * From Products where ProductNo like '%" & txtSearch.Text & "%'", conn, adOpenDynamic, adLockOptimistic
 
    If rec.EOF Then
    MsgBox "No records Found."
    Else
    Set ProductGrid.DataSource = rec
End If
End Sub
 
 
Private Sub cmdSold_Click()
 
End Sub
Private Sub Command1_Click()
Me.Hide
Load Form2
Form2.Show
Exit Sub
End Sub
 
 
 
Private Sub Form_Load()
MLeft = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Admin\My Documents\MynewSystem\database\PRODUCTS.MDB"
rec.CursorLocation = adUseClient
rec.Open "Select * From Products", conn, adOpenDynamic, adLockOptimistic
Set ProductGrid.DataSource = rec
conn2.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Admin\My Documents\MynewSystem\database\Sold.mdb"
rec2.CursorLocation = adUseClient
rec2.Open "Select * From Sold", conn2, adOpenDynamic, adLockOptimistic
Set ProductGrid2.DataSource = rec2
 
 
 
 
End Sub
 
 
 
 
Private Sub Products_DragDrop(Source As Control, X As Single, Y As Single)
 
End Sub

[twinnyfo]

I am not sure I understand the nature of your question. Are you merely trying to copy and paste records?