ti ho rimaneggiato un po la tua funzione
codice:
Public Function FindAddress(ByVal bName As String) As DataSet
        Dim strQry As String = "SELECT * FROM GL400.INDIR00F WHERE NAME1 LIKE ? ORDER BY CODE"
        Dim DA As New OleDbDataAdapter(strQry, System.Configuration.ConfigurationSettings.AppSettings("connAS"))
        Dim DS As New DataSet
        DA.SelectCommand.Parameters.Add("?", OleDbType.VarChar).Value = bName
        DA.Fill(DS, "GL400")
        Return DS
    End Function
se non torna niente, prova a mettere un breackpoint e verificare il contenuto di bnome che entra nella funzione e se e' ok allora prova a far girare la stessa identica query con lo stesso valore ad es. con il query analyzer (magari non torna niente perche' avendo messo un like ti manca il carattere % prima e dopo la variabile per cercare ogni ricorrenza del valore all'interno del campo)