Module mainModule
    Sub Main()
        Dim conn As System.Data.Odbc.OdbcConnection
        Dim mydr As System.Data.Odbc.OdbcDataReader
        Dim mycmd As System.Data.Odbc.OdbcCommand
        Dim dtaDataAdapter As System.Data.Common.DbDataAdapter
        Dim cmdCommandBuilder As System.Data.Common.DbCommandBuilder
        Dim dbConnection As System.Data.Odbc.OdbcConnection 'System.Data.Common.DbConnection
        Dim cmdCommand As System.Data.Odbc.OdbcCommand 'System.Data.Common.DbCommand
        Dim schemaTable As DataTable
        Dim adapter As System.Data.Odbc.OdbcDataAdapter

        'BUG#38014
        dbConnection = New System.Data.Odbc.OdbcConnection()
        With dbConnection
            .ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & _
                              "SERVER=localhost;" & _
                               "PORT=5068;" & _
                               "DATABASE=test;" & _
                               "USER=root;" & _
                               "PASSWORD=******;" & _
                               "OPTION= 1 + 2 + 3 + 8 + 32 + 2048 + 16384"
            .Open()
            If .State = 1 Then
                cmdCommand = New System.Data.Odbc.OdbcCommand
                cmdCommand.Connection = dbConnection
                cmdCommand.CommandText = "SELECT * FROM bug38014"
                cmdCommand.CommandType = CommandType.Text

                schemaTable = New DataTable("bug38014")
                adapter = New OdbcDataAdapter(cmdCommand)
                adapter.FillSchema(schemaTable, SchemaType.Source) 'SchemaType.Mapped)

                dtaDataAdapter = New System.Data.Odbc.OdbcDataAdapter(cmdCommand)
                cmdCommandBuilder = New System.Data.Odbc.OdbcCommandBuilder(CType(dtaDataAdapter, Odbc.OdbcDataAdapter))

                Dim dtsDataSet As New System.Data.DataSet
                dtaDataAdapter.Fill(dtsDataSet)
                dtaDataAdapter.FillSchema(dtsDataSet, SchemaType.Source)

                Console.WriteLine()
                Console.WriteLine("Col.name: " & schemaTable.Columns(0).ColumnName)
                Console.WriteLine("AllowDBNull: " & schemaTable.Columns(0).AllowDBNull)
                Console.WriteLine("Unique: " & schemaTable.Columns(0).Unique)

                If (schemaTable.PrimaryKey.Length = 0) Then
                    Console.WriteLine("No primary key is defined for table!")
                End If

                schemaTable.Dispose()
                adapter.Dispose()

                dtsDataSet.Tables(0).Rows(0).Item(1) = System.DBNull.Value
                dtaDataAdapter.Update(dtsDataSet)
                dtsDataSet.AcceptChanges()

                'Dim dtrNewRow As System.Data.DataRow
                'dtrNewRow = dtsDataSet.Tables(0).NewRow
                'dtrNewRow.Item(0) = System.DBNull.Value

				'This works
                'dtrNewRow.Item(1) = "16:56:25"
                'dtsDataSet.Tables(0).Rows.Add(dtrNewRow)
                'dtaDataAdapter.Update(dtsDataSet)
                'dtsDataSet.AcceptChanges()

            End If
            .Close()
        End With
    End Sub
End Module