[indoprog-vb] Error pas nge-insert ke dbase

[Sarwan Arifin]

hi all,
lagi dapat masalah pas mau insert data ke dbase nya nih, mohon 
pertolongan nya,
masalah seperti ini :

- Koneksi nya saya bikin di modul1 dg kode sbb :
'=============================================
 Public koneksi As New ADODB.Connection
  Public rsMasterBarang As New ADODB.Recordset
  Public rsPelanggan As New ADODB.Recordset
  Public rsPemasok As New ADODB.Recordset
  Public rsStok As New ADODB.Recordset
'=============================================
  Sub BukaDbase()
    koneksi.CursorLocation = adUseClient
    koneksi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=" & App.Path & "\dbInventory.mdb;Persist Security Info=False"
    koneksi.Open

    rsMasterBarang.Open "tblBarang", koneksi, adOpenDynamic, 
adLockOptimistic
    rsPelanggan.Open "tblPelanggan", koneksi, adOpenDynamic, 
adLockOptimistic
    'rsPembelianDetail.Open "tblNotaBeliDetail", koneksi, 
adOpenDynamic, adLockOptimistic
    rsStok.Open "tblStok", koneksi, adOpenDynamic, adLockOptimistic
End Sub
'=============================================
Sub TutupDbase()
    koneksi.Close
    rsMasterBarang.Close
    rsPelanggan.Close
    rsStok.Close
End Sub


- Trus kode di button insert nya sbb :
'=============================================
Private Sub cmdSimpan_Click()
Dim msql As String

    Call BukaDbase
    koneksi.BeginTrans
        
    msql = "insert into tblPemasok(Kode,Nama,Alamat,Telp,Kota)" & _
            " values('" & txtKode.Text & "','" & txtNama.Text & "','" 
& txtAlamat.Text & "','" & txtTelp.Text & "','" & txtKota.Text & "')"
   
    koneksi.Execute (msql)
    koneksi.CommitTrans
    Call TutupDbase
End Sub
'=============================================

- Keluar error sbb :
  Run-time error '3704':
  Operation is not allowed when the object is closed
  padahal di sub BukaDbase kan sudah ada perintah koneksi.open
  pas di debug pointer mengarah ke koneksi.BeginTrans

Mohon pencerahannya...
Terima kasih
Sarwan