ما الخطأ في الكود التالي

السلام عليكم

ما الخطأ يا اخوة في الكود التالي في عملية البحث

عن سجل البرنامج في لمرفقات

الكود هو

Dim db As ADODB.Connection

Dim Rs As ADODB.Recordset

Dim SQL, gFind As String

Private Sub Command1_Click()

gFind = InputBox("INSERT THE NAME ", "Search", "a")

If Trim(gFind) = "" Then Exit Sub

If Rs.State = adStateOpen Then Rs.Close

SQL = "SELECT * FROM DB-EXP where ID-NAME LIKE '" & Trim(gFind) & "%' "

Set Rs = db.Execute(SQL)

If Rs.EOF Then

MsgBox "THE RECORD FAUND", vbExclamation, "ÇäÊåÇÁ ÚãáíÉ ÇáÈÍË "

Exit Sub

End If

List1.Clear

Do Until Rs.EOF

List1.AddItem Rs.Fields(2)

Rs.MoveNext

Loop

Call Form_Load

End Sub

Private Sub Form_Load()

Set db = New ADODB.Connection

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DB-EXP.MDB"

Set Rs = New ADODB.Recordset

With Rs

.ActiveConnection = db

.CursorType = adOpenDynamic

.LockType = adLockOptimistic

.Open "TAB_EXP", db, adOpenDynamic, adLockOptimistic, 2

End With

End Sub

Exp.rar