' Tabelle aus MySQL einlesen
  objMyReader = objMySqlCmd.ExecuteReader()
  If objMyReader.HasRows Then
     While (objMyReader.Read())
          For index As Integer = 0 To objMyReader.FieldCount - 1
              Wert = objMyReader(index)
              If IsDBNull(Wert) Then
                 Wert = "NULL"
                 SQLData += Wert & ", "
              ElseIf objMyReader.GetFieldType(index).ToString = "System.Byte[]" _
                Then

                 ' BLOB Feld in der MySQL Tabelle
                 Wert = System.Text.ASCIIEncoding.ASCII.GetString(objMyReader( _
                   index)) 
                 SQLData += "HEXTORAW(" & Chr(39) & Wert & Chr(39) & "), "

              Else
                 SQLData += Chr(39) & Wert & Chr(39) & ", "
              End If
            Next
            SQLData = SQLData.Substring(0, Len(SQLData) - 2)
            strSQL = "INSERT INTO " & Tabelle & " ("
            strSQL += SQLHeader & ") VALUES ("
            strSQL += SQLData & ")"
            SQLData = ""
            ' Tabelle in MSSQL speichern
            objSqlCmd = New System.Data.SqlClient.SqlCommand(strSQL, _
              mobjSqlConn)
            Try
               Dim cant As Integer = objSqlCmd.ExecuteNonQuery()
               Catch ex As Exception
               Console.WriteLine(ex.Message)
            End Try
      End While
  End If