Combo Box load - Easy

I have an easy question but no adequate reference material in front of me at the moment. How do I load a combo box with a dataset? Here's my code:

Dim strSQL As String
Dim strConn As String
Dim objDA As SqlClient.SqlDataAdapter
Dim objDS As New Data.DataSet()
Dim intCounter As Integer
Dim strResult As String

strConn = "Initial Catalog=pubs;Data Source=(local);" _
& "User ID=sa;password=;"
strSQL = "My SQL Statement"

objDA = New SqlClient.SqlDataAdapter(strSQL, strConn)
objDA.Fill(objDS)

'I want to load my combo here. How do I access the fields from the dataset?

Thanks in advance.

hi,

i would do it like that way



Private Sub Connection()

With con
.Mode = ADODB.ConnectModeEnum.adModeReadWrite
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source= yourPath "
.Open()
End With

strSQL = "SELECT * FROM yourTable "
rs.Open(strSQL, con, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockPessimistic)

End Sub

Private Sub Combobox()

ComboBox1.Items.Add(rs.Fields(1).Value)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Connection()

Do While Not rs.EOF
Combobox()
rs.MoveNext()
Loop

rs.Close()
con.Close()

End Sub

Good Luck

Try this also...........add the code in the specified event of ur form

(ds is the dataset,i integer)

For i = 1 To CInt(ds.Tables(0).Rows.Count)
ComboBox1.Items.Add(ds.Tables(0).Rows(0)(i))
Next

Hope it works..
I tried the code after executing a storedprocedure which returns 3 fields.