Угадайте, кто написал код

        
Dim CMD 
As New SqlCommand
        
Dim i, IntCount 
As Integer
        Dim StrAdp 
As SqlDataAdapter
        
Dim Strcomm 
As SqlCommand
        
Dim DtsMain 
As New DataSet
        
Dim dt 
As New DataTable

        
'' ramkrishnamahadevmaamabeganeshmaheshwarishardayanamahajaishreeramgaganpateynamahaomhrimshrimchammundiyavicheenamaha

        '' BIDId COLUMNS DEFINATION 

        
Dim DcBidId 
As DataColumn = 
New DataColumn(
"DcBidId")
        DcBidId.DataType = System.
Type.GetType(
"System.Int16")
        dt.Columns.
Add(DcBidId)