Dim conn As ADODB.Connection
Dim rsCustomers As ADODB.Recordset
Set conn = New ADODB.Connection

conn.open "Provider=SQLOLEDB.1;integrated security=SSPI;data source= BB;
persist security info=False;initial catalog= AA;"
Set rsCustomers = New ADODB.Recordset
...

Set rsCustomers = New ADODB.Recordset
        zapros = "SELECT * FROM Alarm"
        Set rsCustomers.ActiveConnection = conn
        rsCustomers.open zapros
        Set DGquery.DataSource = rsCustomers

Public Function gettable(ByVal query As String) As ADODB.Recordset

        Dim conn As ADODB.Connection
        Dim rsCustomers As ADODB.Recordset
        Dim constr As String
        Dim zapros As String
        
        Set conn = New ADODB.Connection
        
        constr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=OrwellDB;Data Source=HAMMER;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=HAMMER;Use Encryption for Data=False;Tag with column collation when possible=False"
        conn.open constr
        
        Set rsCustomers = New ADODB.Recordset
                     
        Set rsCustomers.ActiveConnection = conn
        rsCustomers.open query, conn, adOpenStatic, adLockOptimistic, adCmdText
               
        Set gettable = rsCustomers

    End Function

Private Sub BSearch_Click()

        Dim otvet As query.Class1
        Dim getquery As String

        getquery = CStr(Tquery.Text)
        Set DGquery.DataSource = otvet.gettable(getquery)
End Sub