Sekilas Source Code VB with Mysql

ini ada sedikit code, mungkin berguna.

SQL code.
==================
'deklarasi awal
Public JumlahKaryawan As Integer
Dim i As Integer
'deklarasi koneksi dengan database (misal dengan basis data MsAcces)

Dim db As Connection

'deklarasi Recordset
Dim rs As Recordset
-------
sub BukaDatabase()
'buat koneksi baru dengan database, disini menggunakan MsAcces Office 2003,
'file database diletakkan satu directori dengan aplikasi
Set db = New Connection
' db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\dbKaryawan.mdb;Persist Security Info=False; Jet OLEDB:Database Password = tes"

db.CursorLocation = adUseClient

'Buka koneksi database
db.Open
end sub

'fungsi untuk menghapus database
Sub Hapus()
'buat recordset baru dengan name, rs
Set rs = New Recordset

'deklarasi string SQL
Dim SQL As String

'pilih dari file database pada tabel Karyawan dimana no kartu sama dengan text input
SQL = "select * from tblKaryawan where NoKartu='" + txtNoKartu.Text + "'"

'buka recordset dengan SQL
rs.Open SQL, db, adOpenDynamic, adLockOptimistic

'jika ditemukan, maka hapus record bersangkutan
If rs.RecordCount > 0 Then
rs.Delete
'pesan penghapusan telah selesai, psikologis efek bagi user
MsgBox "Record karyawan(" & txtNoKartu.Text & ")", vbInformation, "Karyawan"
End If

'proses penghapusan selesai dan tutup recordset
rs.Close
'bebaskan variabel rs
Set rs = Nothing
End Sub


'fungsi untuk menyimpan data ke database acces
Sub Simpan()
''set rs sebagai recordset baru
Set rs = New Recordset

'deklarasi SQL sebagai string
Dim SQL As String

'pilih dari file database pada tabel Karyawan dimana no kartu sama dengan text input
SQL = "Select * from tblKaryawan where NoKartu='" & txtNoKartu.Text & "'"
rs.Open SQL, db, adOpenDynamic, adLockOptimistic

'operasi pada recordset bersangkutan
With rs
'tambah baru
.AddNew
'field NoKartu diisi dengan input dari txtNoKartu
!NoKartu = txtNoKartu
'perbarui data
.Update
End With
'tutup recordset
rs.Close
'bebaskan rs
Set rs = Nothing
'pesan penyimpanan telah selesai, psikologis efek bagi user
MsgBox " Record order telah ditambahkan", vbInformation, "Sukses"
End Sub
'============== end program

moga bermanfaat.
ada yang tertarik?? atau malah mumet??? keep spirit