como buscar en 2 campos de un db??

[meistersfu]

hola amigos, resulta ke estoy haciendo una aplicasion para almasena fichas y despues ralizar buskedas por distintos campos, pero tengo un problema, nesesito buscar en 2 campos de la base de datos, hacerlo en 1 ya lo tengo.

ElseIf Option4 = True Then
Data1.RecordSource = "select * from fichas where principio1 ='" & Text1 & "'"
Data1.Refresh
Label1.Visible = True

If Data1.Recordset.EOF Then
MsgBox "El Principio Activo: '" & Text1 & "'" & " No está en la Base de Datos", vbExclamation, "¡Por Favor Revisa lo que escribiste!"
Text1 = ""
Text1.SetFocus
End If

con ese codigo puedo buscar en un solo campo, pero lo ke yo kiero es buscar al mismo tiempo en el campo principio1 y principio2 lo ke estoy ingresando en el "Text1", pero no se como hacerlo, ya ke soy muy nuevo en esto, ojala me puedan ayudar, gracias.

PD: vb6 y db en access