Как организовать поиск в DBGrid'е? - VB

Формулировка задачи:

Как организовать поиск в DBGrid'е? Делаю следующее:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command6_Click()
x = Text1.Text
Data1.Recordset.MoveFirst 'Установить указатель на первую запись
While Not Data1.Recordset.EOF 'Пока запись не последняя
If Data1.Recordset.Fields(1) = x Then
UK = DBGrid1.Row
DBGrid1.Col = 3
Text2.Text = DBGrid1.Text
Exit Sub
End If
Data1.Recordset.MoveNext 'Перейти на следующую запись
Wend
End Sub

Как-то делал с Adodc+DataGrid и всё работало, а тут не хочет. После нажатия кнопки ПОИСК видно, что он пробегает по базе, но при этом не останавливает указатель на искомой строке. Подскажите, пожалуйста, где ошибка!

Решение задачи: «Как организовать поиск в DBGrid'е?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
 
Dim str As String
str = Text1.Text
Dim U, I, T, B, P As Integer
        U = 2
        I = 3
        T = 4
        B = 5
        P = 6
 
If Option1.Value = True Then: Main.DBGrid1.Col = U
If Option2.Value = True Then: Main.DBGrid1.Col = I
If Option3.Value = True Then: Main.DBGrid1.Col = T
If Option4.Value = True Then: Main.DBGrid1.Col = B
If Option5.Value = True Then: Main.DBGrid1.Col = P
            
        Main.Data1.Recordset.MoveFirst
        Do While Not (Main.Data1.Recordset.EOF)
        If (str = Main.DBGrid1.Text) Then
        Unload Me
        Exit Sub
        End If
        Main.DBGrid1.Row=1
        Main.Data1.Recordset.MoveNext
        Loop
        MsgBox "Ничего не найдено!" ''Если цикл дойдёт до конца, значит ничего не найдено
 
End Sub