Dim conn As New OracleConnection(oradb)
        conn.Open()
        Dim cmd As New OracleCommand
        cmd.Connection = conn
        cmd.CommandText = "select msg_id,msg_type_id,pos_id From msg.msg_out_buffer  Where pos_id=113" ' VB
        cmd.CommandType = CommandType.Text
        Dim dr As OracleDataReader = cmd.ExecuteReader()
        DataGridView2.Columns.Add(dr.GetName(0)) ' тут ругается на невозможно преобразовать значение типа string
        DataGridView2.Columns.Add(dr.GetName(1)) ' в system.Windows.Forms.DataGridViewcolumn
        DataGridView2.Columns.Add(dr.GetName(2))
        While dr.Read()
            DataGridView2.Rows.Add(dr.Item(0), dr.Item(1), dr.Item(2))
            ' ListBox1.Items.Add(dr.Item("msg_id") & "      " & dr.Item("msg_type_id"))
        End While
        dr.Dispose()
        cmd.Dispose()
        conn.Dispose()

  Dim conn As New OracleConnection(oradb)
        conn.Open()
        Dim cmd As New OracleCommand
        cmd.Connection = conn
        'cmd.CommandText = "select msg_id,msg_type_id,pos_id From msg.msg_out_buffer  Where pos_id=113" ' 
            cmd.CommandType = CommandType.Text
        Dim datatable As New DataTable
        Dim dr As OracleDataReader = cmd.ExecuteReader()
        datatable.Columns.Add(dr.GetName(0))
        datatable.Columns.Add(dr.GetName(1))
        datatable.Columns.Add(dr.GetName(2))
        While dr.Read()
            datatable.Rows.Add(New String() {dr.GetValue(0), dr.GetValue(1), dr.GetValue(2)})
        End While
        dr.Dispose()
        cmd.Dispose()
        conn.Dispose()
        DataGridView2.DataSource = datatable

  Dim conn As New OracleConnection(oradb)
        conn.Open()
        Dim cmd As New OracleCommand
        cmd.Connection = conn
        cmd.CommandText = "select msg_id,msg_type_id,pos_id From msg.msg_out_buffer  Where pos_id=113"       
        cmd.CommandType = CommandType.Text
        Dim datatable As New DataTable
        Dim dr As OracleDataReader = cmd.ExecuteReader()
        datatable.Columns.Add(dr.GetName(0))
        datatable.Columns.Add(dr.GetName(1))
        datatable.Columns.Add(dr.GetName(2))
        While dr.Read()
            datatable.Rows.Add(New String() {dr.GetValue(0), dr.GetValue(1), dr.GetValue(2)})
        End While
        dr.Dispose()
        cmd.Dispose()
        conn.Dispose()
        DataGridView2.DataSource = datatable