Visual Basic dengan mySql yang ada gambarnya

ni program aku buat untuk latihan dengan database mysql.
langsung aja ya
syaratnya
Sebelum menjalankan program ini silahkan anda lakukan hal-hal berikut:
1. Install Visual basic (tentunya ya la wong programnya pakai vb)
2. Install appserv-win32-2.4.2 (klo ga punya donlot --> ini jika kamu jadi server klo jadi client ga usah)
Klo Client silahkan kamu buka S3KOL4H.CC@ dengan Notepad kemudian pada server isikan ip addressnya server
3. Install mysql-connector-odbc-3.51.19-win32 (ga punya lagi.. capek dehhh)
4. Klo ketiga komponen di atas udah terinstall kamu ektrak mySQL with Picture.Zip
5. Kamu copykan folder sekolah di folder database ke folder sql tempat appserv kamu install
Misalkan kamu install di C kamu taruh di "C:\AppServ\mysql\data"
6, Kamu buka project1.prj
7. Silahkan dipelajari....

Ni sebagian kode yang digunakan untuk koneksi database

Option Explicit
Public cn As New ADODB.Connection
Public rsSiswa As New ADODB.Recordset
Public rsPegawai As New ADODB.Recordset
Public Gambare As New ADODB.Stream
Public Server As String
Public User As String
Public Password As String
Public Database As String
Public xExt As String
Public xName As String

Public Function cnMySQL()
On Error GoTo SalahKoneksi
InformasiData
cn.CursorLocation = adUseClient
cn.Open "DRIVER={MySQL ODBC 3.51 Driver};Server=" & Server & ";UID=" & User & ";PWD=" & Password & ";Database=" & Database
Exit Function
SalahKoneksi:
MsgBox Err.Description, vbCritical
End Function
Public Sub InformasiData()
On Error GoTo salahData
Call Settingan
Server = BacaDariINI("MYSQL", "Server", "", TempatINI)
User = BacaDariINI("MYSQL", "User", "", TempatINI)
Password = BacaDariINI("MYSQL", "Password", "", TempatINI)
Database = BacaDariINI("MYSQL", "Database", "", TempatINI)
Exit Sub
salahData:
Server = "localhost"
User = "root"
Password = ""
Database = "sekolah"
On Error Resume Next
End Sub

Untuk lebih jelasnya silahkan anda anda donlot projectnya disini