Fill Record into Grid through SDK

Dear All,
   Today , We will see, How to Fill Record into Grid through SDK.

 Public Sub FillRecordIntoGrid(ByVal aform As SAPbouiCOM.Form, ByVal oGridUid As Object, ByVal strQuery As String)
        Dim dtTemp As SAPbouiCOM.DataTable = Nothing
        Dim oGrid As SAPbouiCOM.Grid = Nothing
        Try
            aform.Freeze(True)
            oGrid = aform.Items.Item(oGridUid).Specific
            dtTemp = oGrid.DataTable
            dtTemp.ExecuteQuery(strQuery)
            oGrid.DataTable = dtTemp
        Catch ex As Exception
        Finally
            If dtTemp IsNot Nothing Then
                dtTemp = Nothing
            End If
            aform.Freeze(False)
        End Try
    End Sub