tambahkan exit sub sebelum Hell:

On 7/18/06, Agus Sudana <[EMAIL PROTECTED]> wrote:
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.."
 
exit sub

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,
__._,_.___

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