Tenha esta funcao:

Public Sub MontaCombo(ByVal Objeto As ComboBox, ByVal nmTabela As String, ByVal nmCampo As String, ByVal nmId As String, ByVal Criterio As String)

Try
Dim Sql As String
Dim Ds As DataSet = New DataSet

Sql = "Select " & nmId & "," & nmCampo & " From " & nmTabela & Criterio

Dim Da As New MySqlDataAdapter(Sql, Cn)
Da.Fill(Ds, nmTabela)
Dim Dv As DataView = Ds.Tables(nmTabela).DefaultView

With Objeto
.DataSource = Dv
.DisplayMember = UCase(nmCampo).ToString
.ValueMember = nmId
End With

Ds.Dispose()

Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

Porque ela nao me tras todos os dados da tabela em questao. tras apenas o primeiro.
Eu chamo ela assim:

MontaCombo(cbUser, "tbl_login", "login", "idlogin", " Order By login ASC")

Esse combox ja te me deixando de cabelo branco.....