VB 6.0 Row set is not bookmarkable

 solution :

set the CursorLocation Property of Recordset Object. 

    RS.CursorLocation=adUseClient

Hey  just copy this code line before openign ur recordset.

sample :

 Set RS = New ADODB.Recordset

 RS.CursorLocation = adUseClient

RS.Open "SELECT* FROM pelanggan WHERE nama like'%" & tpembeli.Text & "%'", CN, adOpenKeyset, adLockOptimistic

Set DataGrid1.DataSource = RS