Problem Koneksi VB6 ke Database.mdb

[Deva19]

Pusing banget nih, lagi nyoba keneksi VB6 ke database, tapi gagal terus. Ada yang bisa ngasih pencarahan enggak?

Permasalahannya sebagai berikut :

Saya membuat sebuah form, tampak seperti berikut :

[spoiler=1]
[/spoiler]

Kode nya sebagai berikut :

[spoiler=2]

Code Select Expand


Private Sub Form_Load()
Call BukaDatabase
End Sub

Private Sub Text1_LostFocus()
SQL = "SELECT*FROM TBURAIAN " _
& " WHERE SUBJUDUL=`" & Text1.Text & "`" _
& " ORDER BY SUBJUDUL"
Set Rs_Data = New ADODB.Recordset
If Rs_Data.BOF Then
MsgBox "Data tidak ada"
Else
Text2.Text = Rs_Data.Fields("URAIAN")
End If
End Sub

[/spoiler]

Tapi ketika dijalankan, selalu muncul pesan error sebagai berikut :

[spoiler=3]
[/spoiler]


Seharusnya text2 berisi teks, ketika saya mengetikan kata "cinta" pada text1, seperti berikut :


[spoiler=4][/spoiler]

Saya berhasil membuat program tersebut pada VBA, tapi gagal dengan VB6, dan sudah memeriksa berbagai kemungkinan penyebab error yang saya ketahui, tapi masih belum diketahui penyebab errornya. 

Koneksi Database lancar :



Dan saya juga mencoba menambahkan script berikut :
[spoiler=5]

Code Select Expand


Rs_Data.Open SQL, KoneksiDb, adOpenDynamic, adLockBatchOptimistic[/spoiler]

Tapi muncul pesan error lainnya :

[spoiler=6][/spoiler]

Jadi, help me, please!

[hatRed]

Sub Open([Source], [ActiveConnection], [CursorType As CursorTypeEnum = adOpenUnspecified], [LockType As LockTypeEnum = adLockUnspecified], [Options As Long = -1])

[Deva19]

apa tuh maksudnya?

[hatRed]

pada saat objek Adodb.recordset menggunakan sub Open

itu bisa menggunakan argumen/tidak sama sekali

note : argumen yg didalam tanda kurung siku '[ ]' artinya optional

kalau menggunakan argumen, maka diberikan disitu tuh petunjuknya argumen pertama itu adalah Source, kedua adalah Active connection ( artinya Koneksi yg aktiv , aktiv disini terhubung) , CursorType (tipe kursor), Locktype, sama option..

petunjuk itu ada di object browser (gambar tombolnya kotak box kuning terbuka)

[hatRed]

Option Explicit

oh yah.. di setiap awal code.. biasakan pake

[Deva19]

bro Hatred, mau bantuin enggak? saya pengen banget bisa koneksikan itu database! saya mo kirim program nya, tolong koneksikan sama bro, ntar kirimin lagi ke saya.

[hatRed]

post aja disini.. semua kodenya...

yang lengkap,, toh.. siapa tau yg lain jg bisa bantu dan sharing teknik koneksi masing2