Vb code

bonsoir,
quelqu'un peut me corriger ce code:
Private Sub cmd_recherche_Click()
Dim Trouve As Boolean
num = Val(txt_k7.Text)
Dim DBB As ADODB.Connection
Dim RSS As ADODB.Recordset
Dim reqtitre As ADODB.Command

DBB.Provider = "Microsoft.Jet.OLEDB.4.0"
DBB.ConnectionString = "C:\Users\kamikaz\Desktop\club video\le mien\mini pojet vb kamikaz\provc.mdb"
DBB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\provc.mdb"

reqtitre.CommandType = "Select * From cassette_video"
Set RSS = reqtitre.Execute

Trouve = False
While Not RSS.EOF And Trouve = False
If RSS![numero_video] = num Then
txt_k7 = Resultat![titre]

txt_k7.Enabled = False

Trouve = True
End If
RSS.MoveNext
Wend

If Trouve = False Then
MsgBox "Numéro Inexistant", vbCritical, "Recherche d'une video"

txt_k7.Text = ""
txt_k7.SetFocus
End If
End Sub






svp c'est urgent c'est demain que je doit presenter mon mini projet