Imports System.DataImports System.Data.OdbcPu
blic Class Form1Private Sub Form1_Load(ByVa
l sender As System.Object, ByVal e As Syste
m.EventArgs) Handles MyBase.LoadEnd SubPriv
ate Sub Button1_Click(ByVal sender As Syste
m.Object, ByVal e As System.EventArgs) Hand
les Button1.ClickDim conn As New OdbcConnec
tionconn.ConnectionString = "Server=192.168

.1.2;uid=user;Pwd=parola;Driver= MySQL ODBC
 3.51 Driver };Database=eto_db;Port=3306;Op
tion=4;"'bağlantı açıldı.conn.Open()'bağlan

tı durumunu gösteriyor .Label1.Text = conn.
State.ToString'Komut uygulanmasıDim cmd As 

New OdbcCommandcmd.CommandText = "insert in

to kisiler (adi,soyadi) values ('Taner','öz

daş')"cmd.Connection = conncmd.CommandType 

= CommandType.Textcmd.ExecuteNonQuery()cmd.
Dispose()'Bağlantı kapatılıyor.conn.Close()
End SubEnd Class