Subito dopo la linea

sQL = "select * from Rubrica where [O_F]= '" & XPCombo1.Text & "'"

inserisci

MsgBox sQL

e dicci cosa viene visualizzato.