Saprai come si uniscono due stringhe ( uso dell'operatore & ) ...

Nel tuo caso

Rs.Open "SELECT * FROM medici WHERE nome = '" & Text1.Text & "'"