Lister

Du mangler at hende teksten fra listen nu hentern du kun positionen på teksten. Jeg mener at det hedder noget lignende

Index(Litresultater.listindex())

Nej det virkede ik... hvis du altså mener:

Private Sub cmddetaljer_Click()
TXTtitel.Text  = lstresultater.Index(lstresultater.ListIndex)
End Sub

Skal du ikke bare have værdien af det selectede element i din ListBox?

Private Sub cmddetaljer_Click()
TXTtitel.Text = lstresultater.Text
End Sub

hhmm... jow :)

Nogle gange forventer man at det er sværere end det egentlig er :)

Takker for point :)

Men kan du så forklare, at anden gang jeg bruger denne søge funktion (når foregående knap _er_ brugt) så melder programmet fejl:

Dim soegetitel As String
lstresultater.Clear
soegetitel = InputBox("Søg efter titel")
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
    lstresultater.Visible = True
    If InStr(1, Data1.Recordset("titel"), soegetitel, vbTextCompare) Then
    lstresultater.AddItem (Data1.Recordset("titel"))
    End If
Data1.Recordset.MoveNext
Loop
End Sub

Fejlen hedder:
Rumtime error '3426'
This action was cancelled by an associated object.

Hvorefter den markerer flg linie:

Data1.Recordset.MoveFirst