VB Forum / Database Access / March 2008

1) Is this the correct code or something you typed from your code? Always
use Copy 'n Paste. That way we can tell typos from actual errors.

2) This line shows the entire argument as a quoted string which is wrong.

It should be ...
rs.Open "Select * from customer", CON, adOpenKeyset, adLockOptimistic

3) This line makes no sense, ie it is merely displaying the entire SQL
string in the textbox.

Perhaps what you really want to do is make a new query against the database?
Also the enclosing tick (single-quote character) is missing from the end of
the SQL statement.
It should be ...
SQLname = ""Select name from Customer where telephone='" & _
                       txtPhone.Text & "'"    ' include closing tick

4) Use specific Error Handling. ADO often returns additional errors in its
Error Collection that can better help you understand what is going on.
http://support.microsoft.com/kb/167957
http://support.microsoft.com/kb/168336
Download this free tool to make it easier to instrument error handling in VB
http://www.mztools.com/v3/download.aspx

5) While not a problem in this case, and often used in *sample* code, you
should not use the "As New" construct to Dimension Object References in your
production code. It tends to obscure errors.
Also you should always fully qualify all objects.
And never use parentheses in VB as a unary operator unless you need to, and
you know why you need to. It often doesn't do what you think it does. <g>

Your code should look like this ...

Dim rs As ADODB.Recordset    ' not newed, fully qualified
Private Sub cmd_details_Click()
On Error Goto DetailClick_Err
    Set rs = New ADODB.Recordset
    Dim SQLname As String   ' building the sql statement outside the call
                                             ' makes it easier to view and
validate
   SQLname = ""Select name from Customer where telephone='" & _
                       txtPhone.Text & "'"    ' include closing tick
   ' Debug.Print SQLname       ' review
    rs.Open SQLname, CON, adOpenKeyset, adLockOptimistic
       ' check to make sure we found something
       ' in this case grab the first one that shows up
       ' your code may be different
    While Not rs.EOF Or Not rs.BOF
          txtname.Text = rs.Fields("telephone").Value
          ' or use ...
          txtname.Text = rs!telephone
     Wend
     Exit Sub
DetailClick_Err:
      ' handle error here
      ' see above links for more robust error reporting
End Sub

Hope this helps

-ralph