Sebelum kode Hell: tambahkan Exit Sub
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]On Behalf Of Agus Sudana
Sent: Tuesday, July 18, 2006 10:43 AM
To: [email protected]
Subject: [Programmer-VB] script koneksi error

dear rekan VB lagi..
berikut potongan script saya yang sukses konek, tp ada errornya.
 
Sub Hubung()
 On Error GoTo Hell:
 Set Koneksi = New ADODB.Connection
 Koneksi.CursorLocation = adUseClient
 Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=NFile;Persist Security Info=False"
 If Koneksi.State = 1 Then MsgBox "Sukses Terhubung.."
Hell:
 MsgBox "Koneksi Gagal, Coba Periksa Letak Database, atau Kontak Administrator anda", vbCritical, "Information"
End Sub
tiap kali di run, msgbox "sukses terhubung" jalan. setelah tekan OK, malah msgbox "koneksi gagal bla..bla" yang muncul..
kira2, salah dimana yah..?
please help..
terima kasih,
 


Do you Yahoo!?
Everyone is raving about the all-new Yahoo! Mail Beta.

__._,_.___

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer





SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language


YAHOO! GROUPS LINKS




__,_._,___

Kirim email ke