selecting and presenting data from database

[tendaimare]

I want to select and view my data in the database but its proving to be a challenge . Any advice on where I could be missing it? If i run this code even when the select criteria is met, it always returns search failed,Any help?

   If txtSun.Text = "SUN" Then
                                            Set rst = New ADODB.Recordset
                                            rst.Open "SELECT * FROM SundryProduct WHERE ProdCont='" & txt_con_code.Text & "' ", Cnn, adOpenForwardOnly, , adCmdText ' I want to extract this data from the database
                                            If rst.EOF Then
                                            'MsgBox ("SEARCH FAILED")' This was the original Line
                                            MsgBox ("QUANTITY ORDERED  " & rstContractsProduct!QuantityOrdered & "   My Load Number is   " & rst!LoadNumber)'
                                            ' I ended up putting the line above to see what would come up but originally the messagebox with search failed was the one that was above  
                                            Else
                                            What 
                                            MsgBox ("QUANTITY ORDERED  " & rstContractsProduct!QuantityOrdered & "   My Load Number is   " & rst!LoadNumber)
                                            End If
   
   End If