Select statment

[bonzo2008]

How shall I write the code so i get surname first and forenamn last

Set rs = db.OpenRecordset("SELECT * FROM tblData WHERE Surename & Forename LIKE '"& "'" & "& '*'")

i don't know if this is right

[debasisdas]

SELECT Surename , Forename FROM tblData

[bonzo2008]

it don't work get error

[Jx_Man]

post your code..

[bonzo2008]

Private Function list()
If rs.RecordCount = 0 Then
errormsg = MsgBox(" Inga poster hittades", , "TelefonBoken")
Exit Function
Else
If Len(TxtSearch.Text) > 0 Then
TxtSearch.Text = Mid(TxtSearch.Text, 1, Len(TxtSearch.Text) - 1)
Else
rs.MoveLast
rs.MoveFirst
max = rs.RecordCount
rs.MoveFirst
Lstdata.Clear
For i = 1 To max
Lstdata.AddItem rs("eftn") ' and I will have forename to

rs.MoveNext
Next i
End If
End If

End Function

[StephNicolaou]

This code doesn't even include the select statement, debasisdas has already solved this really...Post the code with this select statement included.