[RESOLVED] ListBox

[VictorN]

I don't understand the debug program.

You must!
Otherwise you can forget about programming and just look for some other job.

[Probie887]

Good morning jggtz....I got it now the rest of it is okay...I will mark this resolved and thank you so much. Thanks

 strSQL = "SELECT * FROM BibleTable WHERE [TextData] LIKE '" & txtName & "%'"
    
    
    MousePointer = vbHourglass
            
    Database.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\KJV.mdb;"
    
    'MsgBox strSQL

    rs.Open strSQL, Database, adOpenStatic, adLockPessimistic
    If rs.BOF = False And rs.EOF = False Then
        text2.Text = rs.Fields("BookTitle")
        text3.Text = rs.Fields("Chapter")
        text4.Text = rs.Fields("Verse")
        text5.Text = rs.Fields("TextData")
    Else
        MsgBox "not found"
    End If