Problem Returning a Dataset

[Sparky Arbuckle]

The function below works in that it returns the correct data back to
the dataset for 2 of the rows in my datalist:

A1 - A - 1
A1 - A - 2
A1 - A - 3
A1 - B - 1
A1 - B - 2
A1 - C - 1
A1 - C - 2
A1 - C - 3

The above dataset is returned as A1 - C - 3

What I would like to do is return A1 - C - C1, C2, C3

I have done a response.write( rowCount) and the correct number of rows
are returned. My main question is how do I go about creating the
string on each row in the dataset? Right now the first row looks like
A1, A2, A3, A4, A5, A6, A7, A8. This is partially correct because there
are 8 rows being returned. How do I configure my FOR NEXT to take it
row by row?

Function GetNewestVersio nByProductID(By Val x As String)

Dim objConn As New
OleDb.OleDbConn ection(Configur ationSettings.A ppSettings("str Connection"))
Dim strSQL As String = "SELECT tblProduct.Draw ing,
tblProduct.Shee tType, Max(tblProduct. ProductVersion) AS
MaxOfProductVer sion, " & _
"Max(ProductRev ision.Revision) AS MaxOfProductRev ision,
tblProduct.Shee tNumber FROM tblProducts " & _
"INNER JOIN (ADCN INNER JOIN Sheet ON ADCN.RecordID =
tblProduct.Reco rdID) " & _
"ON tblProduct.Prod uctID = tblRevisions.Pr oductID WHERE " & _
"tblProduct.Pro ductID = '" & x & "' AND tblProduct.Shee tType = 'SH' " &
_
"GROUP BY tblProduct.Prod uctType, tblProduct.Prod uctID,
tblProduct.Page Number;"

Dim ds As New DataSet
Dim objCommand As New OleDb.OleDbComm and(strSQL, objConn)
Dim myCommand As New OleDb.OleDbData Adapter(strSQL, objConn)
myCommand.Fill( ds, "tblProduct s")
ds.Tables("tblP roducts").Colum ns.Add("Product VersionString")
Dim i As Integer = 0
Dim countSheetNumbe r As Integer = dsADCN.Tables(" tblADCN").Rows. Count()

For i = 0 To countSheetNumbe r - 1
If ds.Tables("tblP roducts").Rows( i)("MaxOfProduc tVersion") Is Nothing
Then ds.Tables("tblP roduct").Rows(i )("ProductVersi onString") = "0"
ds.Tables("tblP roducts").Rows( 0)("ProductVers ionString") +=
ds.Tables("tblP roduct").Rows(0 )("MaxOfProduct Version") & i + 1
Next

Return ds.Tables("tblP roducts").Defau ltView

End Function