Public Class Form1
    'Текст запроса с параметрами
    Dim GeneralStringCommand As String

    Private Sub GeneralForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Connector = New OleDbConnection
        Connector.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\iivanov\Desktop\Базы данных\Access\Для калькулятора.accdb;Persist Security Info=False;"
        Connector.Open()

        Dim Command2 As New OleDbCommand("SELECT ИмяЗапроса, ТекстЗапроса FROM Запросы", Connector)
        Dim dr2 As OleDbDataReader = Command2.ExecuteReader
        'Вытаскиваем запрос с параметром
        Try
            While dr2.Read()
                If dr2.Item("ИмяЗапроса") = "SQLQuery2" Then
                    GeneralStringCommand = dr2.Item("ТекстЗапроса")
                    Exit While
                End If
            End While
            dr2.Close()
        Catch ex As Exception
            If dr2.IsClosed = False Then
                dr2.Close()
            End If
        End Try      
    End Sub

End Class

    Public Sub RefreshGrig(ByVal Grid As DataGridView, ByVal cmd As String, ByVal TableName As String)
        Dim Command As New OleDbCommand
        Command.Connection = Connector
        Command.CommandText = cmd

        Dim DataSet As New DataSet
        Dim DataAdapter As New OleDbDataAdapter(Command)
        DataAdapter.Fill(DataSet, TableName)
        Grid.DataSource = DataSet
        Grid.DataMember = TableName
    End Sub