gdfgdf

 Dim RowCount As Integer

        sql = "SELECT Firstname FROM User_Information"
        da = New OleDb.OleDbDataAdapter(sql, Connection)
        da.Fill(ds, "FirstnameBox")

        FNameMaxRows = ds.Tables("FirstnameBox").Rows.Count
        RowCount = FNameMaxRows - 1

        For intCounter = 0 To RowCount

            cboxName.Items.Add(ds.Tables("FirstnameBox").Rows(intCounter).Item(0))

        Next