For i As Integer = 1 To nm_rows
                Dim column, row, cell As NXOpen.Tag
                nxopenSession.Tabnot.AskNthRow(tabular_note, i, row)
                For j As Integer = 1 To nm_cols
                    nxopenSession.Tabnot.AskNthColumn(tabular_note, j, column)
                    nxopenSession.Tabnot.AskCellAtRowCol(row, column, cell)
                    nxopenSession.Tabnot.AskCellText(cell, CellText)
 
                    MessageBox.Show(CellText)
 
                Next
 
            Next

Dim constringx as String  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ _
  Speicherort +";Extended Properties=Excel 8.0"
Dim sqly as String = "CREATE TABLE [Tabelle2$]"
Dim conx as new OleDbConnection(constringx)
Dim cmdx as new OleDbCommand(sqly, conx)
 
Try
  conx.Open()
  cmdx.ExecuteNonQuery()
  cmdx.CommandText = sqlx
  cmdx.ExecuteNonQuery()
Catch exc as OleDbException 
 
End Try
 
conx.Close()