Sql = "select * from userdaten ,Telbuch_Intern#intern#Nr:1 "
 
oRs.Open (Sql) ', oConn, adOpenStatic, adLockOptimistic
 
 
 
If oRs.RecordCount > 0 Then
 
 
   me.textbox1.text= oRs("tzon") <-- aus Tabelle eins
 
   me.textbox2.text =oRs("Username")<-- aus Tabelle zwei scheitert
 
 
end if