Dim conn As Object
Sub selectDB(ByVal p_sql, ByVal p_cell)

    If conn Is Nothing Then
        Set conn = CreateObject("ADODB.Connection")
        conn.Open "Driver={SQL Server};Database=MSA;Server=sip;UID=username;PWD=password;"
    End If

    Set rs = conn.Execute(p_sql)
    
    'The first
    'p_cell.CopyFromRecordset rs

    'The second
    Do While Not rs.EOF
        Range("A1").Value = rs.Fields(1)
        Range("A2").Value = rs.Fields(2)
        rs.MoveNext
    Loop
    
    rs.Close
End Sub