这样写即可,如
Dim cmd As new SQLCommand cmd.CommandText = "Select * from {表A}"Dim Values = cmd.ExcuteValuesIf Values.Count > 0 Then Output.show(Values("第四列").tostring)End If