Die Abfrage von Daten aus der Datenbank mit vb6 und ms-access mit adodb

Möchte ich die select-und view meine Daten in die Datenbank, aber es erweist sich als eine Herausforderung. Irgendwelche Tipps, wo ich sein könnte, fehlt es? Wenn ich diesen code ausführen, auch wenn die select-Kriterien erfüllt, es gibt immer Suche fehlgeschlagen ist. Keine Hilfe?

If txtSun.Text = "SUN" Then
    Set rst = New ADODB.Recordset
    Dim sSql As String
    sSql = "SELECT * FROM SundryProduct WHERE ProdCont='" & txt_con_code.Text & "'"
    rst.Open sSql, Cnn, adOpenForwardOnly, , adCmdText
    'rst.Open "SELECT * FROM SundryProduct WHERE ProdCont='" & txt_con_code.Text & "' ", Cnn, adOpenForwardOnly, , adCmdText
    If rst.EOF Then
    MsgBox ("SEARCH FAILED")
    Else
    MsgBox ("QUANTITY ORDERED  " & rst!QuantityOrdered & vbCrLf & "   My Load Number is   " & rst!LoadNumber)
    End If
End If

Ich versuche herauszufinden, wenn es einen Datensatz mit einer übereinstimmenden ProdCont Wert in der Datenbank, aber da war ich noch versuchen, damit dieser code funktioniert in der ersten Ort, den ich nur messageboxes im code. Ich habe sogar versucht, indem Sie in einen tatsächlichen Wert, die ich kenne in der Datenbank vorhanden ist aber es noch gibt die Suche ist fehlgeschlagen messagebox obwohl ich weiß, dass der Wert in der Datenbank vorhanden.