Public Function CN(ByVal server As String, ByVal db As String, ByVal zapros As String) As Recordset
        
        Dim conn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim constr As String
        
        On Error Resume Next
        
        Set rs = Nothing
        Set conn = New ADODB.Connection
        
        constr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" + dbname + ";" + "Data Source=" + servername + ";" + "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=" + servername + ";" + "Use Encryption for Data=False;Tag with column collation when possible=False"
        conn.Open constr
             
        Set rs = New ADODB.Recordset
        Set rs.ActiveConnection = conn
               
        rs.CursorLocation = adUseClient
        rs.Open zapros, conn, adOpenStatic, adLockOptimistic, adCmdText
        
        Set rs.ActiveConnection = Nothing
        Set CN = rs

End Function

Dim rs As db.Class1
Dim MoyRS As ADODB.Recordset
Set rs = New db.Class1
Set MoyRS = rs.CN("HAMMER", "OrwellDB", "Select CameraComputer From Camera")
Set DG.DataSource = MoyRS