dosya bende açılmadı ama şunları bi dene istersen

rs2.open("select firma_id,sgk(bu alana tablodan alanı) from sgk where sgkkod<>'' order by firma_id", baglanti, 1, 1)
ComboBox1.Items.Add(rs2(1).value)
başka bi örnekten örnek vereyim alan isimlerini anlayabilincek şekilde yazmaya çalıştım istersen dene

 Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='vt.mdb'")

        Dim veriler As New DataTable("sgkno")

        Dim adapter As New OleDbDataAdapter("select * from tablo order by sgkno", baglanti)

        adapter.Fill(veriler)

        cbIl.ValueMember = "sgkno"

        cbIl.DisplayMember = "sgkad"

        cbIl.DataSource = veriler