on error resume next
connString = "Driver=Firebird/InterBase(r) driver;Uid=SYSDBA;Pwd=masterkey;DbName=D:\DATA.FDB;"

Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = connString
objConn.ConnectionTimeOut = 15
objConn.CommandTimeout = 30
objConn.Open

if Err.Number<>0 then
  MsgBox Err.Number &chr(13)+Err.Description
  Wscript.Quit 1
end if

Set objRecordset = objConn.Execute("select max(id) as id from mail2")
s=CStr(objRecordset.Fields(0).Value)
MsgBox s

q="insert into mail2 (msg) values ('"& s &"')"

Set objRecordset = objConn.Execute(q)
objRecordset.CursorType=3
objRecordset.Open
MsgBox "State: " & objRecordset.State
MsgBox "State: " & objRecordset.RecordCount
Перебираем результаты запроса
While Not objRecordset.EOF
    strRes = vbNullString
    For i=0 To objRecordset.Fields.Count-1
        strRes = strRes & CStr(objRecordset.Fields(i).Value) & vbTab
    Next
    WScript.Echo Trim(strRes)
    objRecordset.MoveNext
Wend
objConn.Close

Set objRecodset = Nothing
Set objConn = Nothing