SQL = ""
SQL = SQL & "SELECT"
 
SQL = SQL & " x.*,"
SQL = SQL & " a.id as a_id,"
SQL = SQL & " a.user_name as a_user_name,"
SQL = SQL & " a.profile as a_profile"
 
SQL = SQL & " FROM tblBestellung AS x "
SQL = SQL & " LEFT JOIN tblKunden AS a ON x.user_id=a.id"
 
SQL = SQL & " where articleno=12345"
 
RS.ActiveConnection = CNT
RS.CursorType = adOpenForwardOnly
RS.LockType = adLockReadOnly
RS.CursorLocation = adUseServer
RS.Source = SQL
 
RS.Open
 
C = ""
C = C & RS("a_id") & vbCrLf
C = C & RS("a_profile") & vbCrLf
C = C & RS("a_user_name") & vbCrLf
 
Text1 = C
 
RS.Close

...
C = C & RS("a_id") & vbCrLf
C = C & RS("a_user_name") & vbCrLf
C = C & RS("a_profile") & vbCrLf
...

Gruss,
Elmar