ADO.net

  Dim tSQL As String

  Dim objDS As New System.Data.DataSet
  Dim objCmd As SqlCommand
  Dim objAdp As SqlDataAdapter

  Dim cnn As SQLConnection

  Dim dbcn As String = ConfigurationSettings.AppSettings("DBCN") 'DB接続文字列

  cnn = New SqlConnection(dbcn)
  cnn.Open()
  System.Threading.Thread.Sleep(0)

  tSQL = "  select "
  tSQL &= "  NO,NAME"
  tSQL &= " from  Table"
  tSQL &= " where RID = @Rid"

  objCmd = New SqlCommand(tSQL, cnn)
  objCmd.Parameters.Add("@Rid", SqlDbType.Int)
  objCmd.Parameters("@Rid").Value = Convert.ToInt32(tPramterRid)

  objAdp = New SqlDataAdapter(objCmd)

'----objAdp = New SqlDataAdapter(tSQL, cnn)
  objAdp.Fill(objDS, "listFirst")

  With objDS.Tables("listFirst")
     If .Rows.Count > 0 Then
         tmpNo = .Rows(0).Item("NO")         'ISNULL　、Format　必要
         tmpName= .Rows(0).Item("NAME"
     End If
  End With

  objDS.Tables("listFirst").Clear()
  objAdp.Dispose()
  objCmd.Dispose() 

  cnn.Close()

-----

  Dim objSubData As DataRow
  For Each objSubData In objDS.Tables("list").Rows

    If objSubData("KBN") = 1 Then

     tmp1= objSubData("MNY")

   ElseIf objSubData("KBN") = 2 Then

     tmp2= objSubData("MNY")   

   End If

  Next