Dim tabloOlustur As String = "CREATE TABLE Sede(id counter PRIMARY KEY,kod integer,aciklama char(100))"
        Dim baglantiCumlesi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDBatabase Password=13*13"
        Dim baglanti As New OleDbConnection(baglantiCumlesi)
        baglanti.Open()
        Try
            Dim olusturmaKomutu As New OleDbCommand()
            olusturmaKomutu.Connection = baglanti
            olusturmaKomutu.CommandText = tabloOlustur
            olusturmaKomutu.ExecuteNonQuery()
            MessageBox.Show("işlem tamam", "işlem")
        Catch hata As Exception
            MessageBox.Show(hata.Message.ToString(), "hata mesajı")