如何将DataSetk中的值赋给变量[VB.NET]

[cyliu1408]

Dim m_CmdUserInfo As New SqlCommand(c_GetUserInfo, Module_Sql.sqlconn)
Dim m_DataAdaper As New SqlDataAdapter(m_CmdUserInfo)
Dim DS as new dataset
m_DataAdape.Fill(DS,"userinfo")

用以上代码将查询可以得到1条记录，现在想将这条记录中的各个列的值赋给指定下面的变量，代码要怎么写？
Dim Var_A As String
Dim Var_B As Integer
Dim Var_C As DateTime

[cyliu1408]

没有人回复，自己顶一下...

[cyliu1408]

没人解答，自己搞定了。