'*********************************************************
'***   Connect für SQL-Server-Datenbank durchführen    ***
'*********************************************************
     Set con = New ADODB.Connection
     Set CON_Tab = New ADODB.Recordset
 
     con.ConnectionString = _
         "Provider = SQLOLEDB.1" & _
         "Integrated Security=SSPI" & _
         "Perist Security Info=False;Initial Catalog=vbdictdb;" & _
         "Data Source=P2800"
 
     con.Open "DSN=Server", "SA", "sa"
 
 
 
    '************************************************
    '***   Setzen der Zuweisungen                 ***
    '************************************************
    Set CON_Tab.ActiveConnection = con
    'CON_TAB.Source = "SELECT * FROM Projektleiter"
    CON_Tab.Source = "R_DATA"
    CON_Tab.CursorType = adOpenKeyset
    CON_Tab.Open
 
    '###################### ende
 
      'MsgBox CON_TAB("R_ID")
 
 
      ' ############### felder Anzeige
 
        R_ID = "00" & CON_Tab("R_ID")