Si tu connais le type de ton champs en avance suffit d'ommettre les apostrophes. Tel:
Set rs db.OpenRecordSet ("SELECT * FROM MaTable where MonChamp " & ltrim$(str$(variableDeTypeInteger)) & ";", dbOpenSnapShot)
Sinon, je crois que qqch du style suivant est possible:
Dim TypeChamps as Long
set rs = db.OpenRecordSet("MaTable", dbOpenTable)
TypeChamps = rs.fields("MonChamp").Type
If (TypeChamps = dbLong) Then
..."Select ... MonChamp = " & VariableInteger & ";"
else
..."Select ... MonChamp = '" & VariableTexte &"';"
End If