Private Sub Datenbankabfrage_Connection()
 
 
    Set adc_Datenbankabfrage_Connection = New ADODB.Connection
    With adc_Datenbankabfrage_Connection
        .Provider = "SQLOLEDB;Server=Calsi1;Database=Quali3;Integrated" & _
          "Security=SSPI;Connect Timeout=15"
        .Open
        End With
 
End Sub