Probleme mit der ODBC Abfrage unter Win7 64-Bit

Option Explicit

Dim Conn, Cmd,rcs,objCommand,objupdate

Set Conn = CreateObject("ADODB.Connection")  
Set Cmd  = CreateObject("ADODB.Command")  
Set rcs  = CreateObject("ADODB.Recordset")  
Set objCommand = CreateObject ("ADODB.Command")  
Set objupdate = CreateObject ("ADODB.Command")  

Conn.CommandTimeout = 40

Conn.ConnectionString = "Driver={Informix-CLI 2.5 (32 Bit)};Service=1525;Persist Security Info=False;Data Source=datenbank"  
Conn.Open 
Cmd.ActiveConnection = Conn
Cmd.CommandType = 1
Cmd.CommandText = "select count(*) zaehler from btb_auftrag where ws_printed = 0"  
rcs.Open Cmd,, 1, 1


if rcs.Fields("zaehler") = 0 then