Hola, xDriver!
prueba este código, es casi como el tuyo:
Código:
Dim MisDatos as DataRow
Dim MiDtTyped As New DataSet
Dim MiSqlDataAdapter As SqlDataAdapter
MiSqlDataAdapter = New SqlDataAdapter("SELECT * FROM Categoria", MiSqlConnection)
MiSqlDataAdapter.Fill(MiDtTyped, "Categoria")
Msgbox "Filas devueltas por la consulta: " & MiDtTyped.Tables("Categoria").Rows.Count
For Each fila In MiDtTyped.Tables("Categoria").Rows
Msgbox fila.Item("Codcat")
Next
A ver si te va!!