reference ke Microsoft ActiveX Data Object 2.0 atau lebih

Dim CN as Adodb.Connection

On Error Goto MErr

Set CN = New Adodb.Connection

Msgbox "Versi MDAC " & CN.Version & " ",VBInformation,"Info"

MErr:

    Err.Decription


      ________________________________________________________ 
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi 
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/

Kirim email ke