Sql (Select) result in string

Question

Hi , I found this code in internet but it´s put a result in range on excel. 
I would like some code with end is some like  "MyVarString = objMySQLRecordsetResult"
For example: In my select result = "User01" , I would like put this value in a var string.
The code ends ...
        'ActiveSheet.Range("A1").CopyFromRecordset objMyRecordset
I want ...
Test01 = Recordset objMyRecordset
tks for your help !!
Public Sub GetDataFromADO()
    'Declare variables'
        Dim objMyConn As ADODB.Connection
        Dim objMyCmd As ADODB.Command
        Dim objMyRecordset As ADODB.Recordset
        Set objMyConn = New ADODB.Connection
        Set objMyCmd = New ADODB.Command
        Set objMyRecordset = New ADODB.Recordset
        Dim TESTE01 As String
    'Open Connection'
        objMyConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.15.0;Data Source="
& ActiveWorkbook.Path & "\Database.accdb" & "; Jet OLEDB:Database Password= `MY PASSWORD"
        objMyConn.Open
    'Set and Excecute SQL Command'
        Set objMyCmd.ActiveConnection = objMyConn
        objMyCmd.CommandText = "select DUSER from DUSER WHERE DUSER = 'USUR01 "
        objMyCmd.CommandType = adCmdText
   'Open Recordset'
        Set objMyRecordset.Source = objMyCmd
        objMyRecordset.Open
        objMyRecordset.OpenRecordset
    'Copy Data to Excel'
        'ActiveSheet.Range("A1").CopyFromRecordset objMyRecordset
End Sub

Answer 1

Try:
Public Sub GetDataFromADO()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
'Open Connection'
Conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.15.0;Data Source=" & ActiveWorkbook.Path & "\Database.accdb" & "; Jet OLEDB:Database Password= `MY PASSWORD"
Conn.Open
'Open Recordset'
Rs.Open "select DUSER from DUSER WHERE DUSER = 'USUR01'", Conn, adOpenDynamic, adLockReadOnly
'Copy Data to Excel'
ActiveSheet.Range("A1").CopyFromRecordset Rs
Rs.Close
Conn.Close
End Sub
Rod Gill
Author of the one and only Project VBA Book
www.project-systems.co.nz