ADODBRECORDSET satırının altına şunu ekleyip dener misin birde ?

rs.Provider= sqlinc provideri
rs.connectionstring = constr
rs.open