Option Explicit 
 
Dim SMD_DB As ADODB.Connection
Dim SMD_rs As ADODB.Recordset
 
 
    Set SMD_DB = New ADODB.Connection
    SMD_DB.Open "DSN=SMD_DB_SQL;" & "Uid=sa;" & "Pwd=1234"
    Set SMD_rs = New ADODB.Recordset
 
 
 
                      'prüfen ob ChargenNr schon in DB ist
                    strSQL = "SELECT * FROM Weitergebucht WHERE ChargenNr = '" _
                      & WEnr & "' "
                    SMD_rs.Open strSQL, SMD_DB
                    strKAs = SMD_rs!KAweitergeb
                    strKAs = SMD_rs!KAweitergeb