I am new to asp.net and am trying to extract the one filed value from a dataset and place it in a variable

I want the function to return the string value of the syscreated filed in the dataset returned by sql, this is just one record with one field, please help:

Function CheckUserStatus(ByVal username As String) As System.Data.DataSet
Dim connectionString As String = "server='(local)'; user id='sa'; password='3156'; database='qualitivitySQL'"
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)

Dim queryString As String = "SELECT [users].[syscreated] FROM [users] WHERE ([users].[username] = @username)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_username As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_username.ParameterName = "@username"
dbParam_username.Value = username
dbParam_username.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_username)

Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataset)

'>>> load the value returned in to a variable and return it to the function caller...
dim dvwUsers as Dataview

'Return dataSet
End Function

try this function, I made it for one of my projects

Function getsinglevalue(ByVal SQL As String, ByVal field As String)
Dim conn As New MySqlConnection("DSN=TestConnection;")
Dim Cmd As New SqlCommand(SQL, conn)

conn.Open()

Dim objDR As SqlDataReader
objDR = Cmd.ExecuteReader()

Dim returnfield As String

While objDR.Read()
returnfield = objDR(field)
End While

conn.Close()
Return returnfield
End Function