Dim server As String:   server = "s.org"
    Dim UserId As String:   UserId = "r"
    Dim Passwo As String:   Passwo = "r"
    
    Dim con As ADODB.Connection
    Dim rst As ADODB.Recordset
    
    Set con = New ADODB.Connection
    Set rst = New ADODB.Recordset
    
    
    con.Open "Provider=SQLOLEDB;Persist Security Info=False;Password=" & Passwo & ";User ID=" & UserId & ";Data Source=" & server
    Set rst.ActiveConnection = con
    rst.Open "select * from n '", con, adOpenStatic, adLockOptimistic, adCmdText
   
    Dim i As Long
    Dim j as Long
    j= 0 
    Dim ws as Worksheet
    set ws = ActiveSheet
    Do While Not rst.EOF
        i = i +  1 
        if i =  65537  then
           set ws = worksheets.add
           i= 1 
           j=j+ 65536 
        end if
        ws.Cells(i +  1 ,  1 ).Value = i+j
        ws.Cells(i +  1 ,  2 ).Value = rst.Fields![pr]
        ws.Cells(i +  1 ,  3 ).Value = rst.Fields![dr]
        ws.Cells(i +  1 ,  4 ).Value = rst.Fields![nm]        
        rst.MoveNext
    Loop
  
    rst.Close:  Set rst = Nothing
    con.Close:  Set con = Nothing