Public Shared Sub PrepareTable2Grid(ByRef TargetTable As DataTable, ByVal p_strSQL As String)
        Dim strSQL As String
        Dim odaGrid As SqlClient.SqlDataAdapter

        
        odaGrid = New SqlClient.SqlDataAdapter(p_strSQL, Connection)
        odaGrid.FillSchema(TargetTable, SchemaType.Source)
        odaGrid.Fill(TargetTable)
        Connection.Close()
    End Sub

 Private Sub Bind()
        Dim odaAnkets As New SqlDataAdapter
        Dim myDS As New DataSet

        ' инициализация
        odaAnkets.SelectCommand = New SqlCommand("dbo.usp_show_ankets", clsSQL.Connection)
        With odaAnkets.SelectCommand
            .CommandType = CommandType.StoredProcedure
            .CommandTimeout =  2000 
            .Parameters.Add(New SqlParameter("@page_num", PageNum))
        End With

        odaAnkets.Fill(myDS)

        dgAnkets.DataSource = myDS.Tables( 0 )
        dgAnkets.DataBind()
    End Sub