creo que el error pueda ser que me falto un espacio en la consulta SQL
Set tb = bd.OpenRecordset("SELECT * FROM tabla1" & _
"WHERE User = '" & text1.text & "' " & _
"AND Pass = " & text2.text & "';")
lo correcto seria:
Set tb = bd.OpenRecordset("SELECT * FROM tabla1 " & _
"WHERE User = '" & text1.text & "' " & _
"AND Pass = " & text2.text & "';")
y para eso de que no te reconoce los datos, porque no pones el codigo que tienes y vemos que se puede hacer