(28/02/2012, 23:40)BlackEagle yazdı:

SELECT Ortak.firmaunvani, Ortak.İnternetkullanici FROM Ortak WHERE (((Ortak.İnternetkullanici)="Evet"));

Deneyin lütfen.

Private Sub doldur1()

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

 baglanti.Open()

Dim komut As New OleDb.OleDbCommand("SELECT Ortak.firmaunvani, Ortak.İnternetkullanici FROM Ortak WHERE (((Ortak.İnternetkullanici)="Evet")), baglanti)



 Dim getir As OleDb.OleDbDataReader

 getir = komut.ExecuteReader()

 While getir.Read()

 ComboBox19.Items.Add(getir("firmaunvani"))

 End While

 baglanti.Close()

 End Sub