Доступ к базе данных Access из VB

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

Привет ребята! Голову сломал уже,не соображу где ошибки. Мне нужно выполнить поиск по Базе данных. вот я так пишу

                    Листинг программы
                
 
                        
                          
                    
Private Sub Text5_Change()
Dim r As String
 
r = Trim(Text5.Text)
If Option3.Value Then
Adodc1.RecordSource = "select * FROM KLIENT  where NAME like '" + r + "  %';"
ElseIf Option4.Value Then
Adodc1.RecordSource = "select * FROM KLIENT  where REGISTR like '" + r + " %';"
End If
Adodc1.Refresh
End Sub

Я прикрутил парочку ОпшенБатон ,но они свою функцию не выполняют.Мне нужно чтобы в полях текст на форме клиенты появлялись данные. Вложил маленькую бд свою и проект ,который мучаю. Кто что-нибудь подскажет буду очень рад!

Решение задачи: «Доступ к базе данных Access из VB»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Sub OpenDB()
    Set conn = Nothing
    Set conn = New ADODB.Connection
    DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\ALEKSEI.mdb"
    conn.Open DSNName
    If conn.State = 1 Then
        MsgBox "Соединение установлено"
    Else
        MsgBox "Соединение не установлено"
    End If
End Sub