Visual Basic - ayuda amigos!! boton buscar con ado y bd access 2003

Private Sub nrodoc_Click()

Dim No_producto As String

Adodc1.Recordset.MoveFirst

No_producto = InputBox("Escriba el nro de producto a buscar!!")

If No_producto <> "" Then

Adodc1.Recordset.Find "grado =" & No_producto

If Adodc1.Recordset.EOF Then

MsgBox "No se encontró el pedido"

Adodc1.Recordset.MoveFirst

End If

End If

End Sub

Option Explicit

 Dim cn As New ADODB.Connection, Rs As New ADODB.Recordset, sSql As String

Private Sub Form_Load()

    Dim RutaBaseDatos As String

    Combo1.Text = ""

    Text1.Text = ""

    RutaBaseDatos ="C:\SMEYSFmdb" 'AQUI COLOCAS LA RUTA DE LA BASE DE DATOS

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RutaBaseDatos & ";"

    Rs.ActiveConnection = cn

    Rs.CursorLocation = adUseClient

End Sub

Private Sub Button_Click()

dim  No_producto as String

    if  len(trim(No_producto)) = 0 then

           No_producto = InputBox("Escriba el nro de producto a buscar!!")

    end if

    sSql = "select expedientes.[grado]"

    sSql = sSql & " from expedientes"

    sSql = sSql & " where expedientes.[grado] ='" & No_producto & "'"

    Rs.Open sSql

    If Not Rs.EOF Then

       msgbox rs(0)

    else

       msgbox "No se encontraron datos"

    End If

    Rs.Close

End Sub