Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

tabloadi = "Firmalar"
alanlar ="adi,soyadi"
veriler = (TextBox1.Text,TextBox2.Text)

End Sub

internal OleDbConnection baglan()
    {
      string yol = Path.GetDirectoryName( System.Reflection.Assembly.GetEntryAssembly().Location );
      OleDbConnection baglanti = new OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + yol + "\\Data.mdb;User Id=admin;Password=" );
      baglanti.Open();
      return ( baglanti );
    }

    internal int cmd( string sqlcumle )
    {
      OleDbConnection baglan = this.baglan();
      OleDbCommand sorgu = new OleDbCommand( sqlcumle, baglan );
      int sonuc = 0;

      try
      {
        sonuc = sorgu.ExecuteNonQuery();
      }
      catch { }
      sorgu.Dispose();
      baglan.Close();
      baglan.Dispose();
      return ( sonuc );

    }

    internal DataTable GetDataTable( string Sql )
    {
      OleDbConnection baglanti = this.baglan();
      OleDbDataAdapter adapter = new OleDbDataAdapter( sql, baglanti );
      DataTable dt = new DataTable();
      try
      {
        adapter.Fill( dt );
      }
      catch { }
      adapter.Dispose();
      baglanti.Close();
      baglanti.Dispose();
      return dt;
    }

    internal DataRow GetDataRow( string Sql )
    {
      DataTable table = GetDataTable( Sql );
      if (table.Rows.Count == 0) return null;
      return table.Rows[0];
    }

    internal string GetDataCell( string Sql )
    {
      DataTable table = GetDataTable( Sql );
      if (table.Rows.Count == 0) return null;
      return table.Rows[0][0].ToString();
    }

    internal DataSet GetDataSet( string Sql )
    {
      OleDbConnection baglanti = this.baglan();
      OleDbDataAdapter adapter = new OleDbDataAdapter( sql, baglanti );
      DataSet ds = new DataSet();
      try
      {
        adapter.Fill( ds );
      }
      catch { }
      adapter.Dispose();
      baglanti.Close();
      baglanti.Dispose();
      return ds;
    }