hallo zusammen

ich habe ein vbscript, welches ein email versendet.
soweit gehts, nun wollte ich aus der DB werte auslesen. aber mein script sturzt ab. aber ich sehe nicht wo ich den fehler habe.
=====
Dim oCxtProxy, oDataDB, DataDBString, cn, CheckEL, strSQLValue, rs, strSQL, WQCount, IncID
Set oCxtProxy = model.GetClientContext
Set oDataDB = oCxtProxy.Load(100122, "SystemConfiguration")
DataDBString = oDataDB.GetValue("SystemConfigurationDetail.System ConfigurationValue",7,0,0,0)
Set cn = CreateObject("ADODB.Connection")
cn.Open(DataDBString)
'SELECT absetzen
Set rs = createobject("ADODB.Recordset")
strSQL = "SELECT Agent FROM dbname.dbo.tablename"
Set rs = cn.Execute(strSQL)
WQCount = 0
Do While Not rs.EOF
WQCount = WQCount + 1
If WQCount = 1 then
IncID = rs("spaltenname")
End IF
rs.movenext
Loop
body = body & IncID &","
rs.close

'Verbindung schließen
cn.close
=====
schreibe ich den script nicht für die DB, geht der vbscript für das versenden, sobald ich dies schreibe geht er nicht mehr für den versand des email.

Ich habe mir mal erlaubt deinen Code etwas übersichtlicher zu gestalten.
Zeile 13 kommt mir komisch vor. Ich kann deinen Code natürlich nicht
bei mir testen, aber erst soll rs ein Recordset sein und dann
das Ergebnis aus einer Abfrage?