Function used to get a single item of information from a table, given a valid query

Example...

Code:
Dim Last_Name as String = GetSingleField("SELECT LastName FROM Clients WHERE ID = '" & Client.ID & "'")
Code:
Public Function GetSingleField(SqlStr As String, ConnString as String) As String

	Dim sAnswer As String = ""
	Dim myCommand As SqlCommand
	Dim myreader As SqlDataReader

	Using myConnection As New SqlConnection(ConnString)
	
		myConnection.Open()
		myCommand = New SqlCommand(SqlStr.ToString, myConnection)
		myreader = myCommand.ExecuteReader

		If myreader.HasRows Then
			myreader.Read()
			Return myreader(0).ToString
		Else
			Return ""
		End If
		myreader.Close()
		myCommand.Dispose()
		
	End Using

	Return sAnswer

End Function