Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rs2 As Object
        Call baglan()
        rs2 = CreateObject("adodb.recordset")
        rs2.open("select firma_id from sgk where sgkkod<>'' order by firma_id", baglanti, 1, 1)

        If rs2.recordcount > 0 Then
            Do While Not rs2.eof
                ComboBox1.Items.Add(rs2(0).value)
                rs2.movenext()
            Loop
        End If
        rs2.close()
        baglanti.close()
End Sub

 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