No es necesario iterar sobre los datos para agregar los valores al ComboBox:
Código:
Dim strconexion As String
Dim objconexion As OleDbConnection
Dim objcomando As OleDbDataAdapter
Dim objds As New DataSet
strconexion = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=..\BBDD\bd1.mdb"
Try
objconexion = New OleDbConnection(strconexion)
objcomando = New OleDbDataAdapter("select * from Tabla1", strconexion)
objcomando.Fill(objds, "NomCliente")
ComboBox1.DataSource = objds ' También puede ser objds.Tables("NomCliente")
ComboBox1.ValueMember = "Id_Tabla"
ComboBox1.DisplayMember = "Campo_a_Mostrar"
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Saludos