Vista - Ado Connection Error

Hi!

Im using this VB6 code and work fine. But When I plece it in my other
project using VBScript, dont work fine and criate un error "Class not
defined".

Samme one helpe me?

Set Cnn1 = New ADODB.Connection

StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Supervisao\Alarmes.mdb;Persist Security Info=False"
Cnn1.Open StrCnn

Set RST = New ADODB.Recordset
RST.CursorType = adOpenKeyset
RST.LockType = adLockOptimistic
RST.Open "Registos", Cnn1, , , adCmdTable

If Not RST.BOF Then
RST.MoveFirst
End If

RST.AddNew
RST!Data = Date
RST!Hora = Time
RST!Equipamento = "Motor 1"
RST!Alarme = "térmico"

RST.Update

"Henrique" <wq@xxxxxx> wrote in message
news:newscache$4sps7k$dll$1@xxxxxxReplace these two statements:

Set Cnn1 = New ADODB.Connection
Set RST = New ADODB.Recordset

with this:

Set Cnn1 = CreateObject("ADODB.Connection")
Set RST = CreateObject("ADODB.Recordset")

Also, you must assign values to adCmdTable, adOpenKeyset, and
adLockOptimistic with Const statements.

Const adCmdTable = 2
Const adOpenKeyset = 1
Const adLockOptimistic = 3

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

Ok

Work fine.

Thank you


"Richard Mueller [MVP]" <rlmueller-nospam@xxxxxx> escreveu na
mensagem news:uh$5CX9HJHA.1364@xxxxxx