Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
...
Private Sub getowner()
mainconn.ConnectionString = "Provider=SQLOLEDB.1;Password=" & pass & ";Persist Security Info=True;User ID=" & login & ";Initial Catalog=master;Data Source=" & server & ";"
conn.Open
With cmd
Set .ActiveConnection = conn
    .CommandText = "sp_helpdb @dbname='Test'"
    .CommandType = adCmdStoredProc
End With
Set rs = cmd.Execute
MsgBox rs("owner")
End Sub