datasetVocab.Tables(0).Clear()
datasetVocab.ReadXml(appPath() & file)
tableVocab.DefaultView.Sort = "German ASC"
DataGrid1.DataSource = datasetVocab.Tables(0)

Dim data As String
Dim vocI As String
Dim vocG As String
Dim z As Integer
 
sReader = New StreamReader(appPath() & "\import.csv", _
  System.Text.Encoding.Default)
 
Do Until sReader.Peek = -1
    data = sReader.ReadLine
    For z = 1 To Len(data)
        If Mid(data, z, 1) = ";" Then
            vocG = Mid(data, 1, z - 1)
            vocI = Mid(data, z + 1, Len(data))
            rowVocab = datasetVocab.Tables(0).NewRow()
            rowVocab("ID") = rowCount
            rowVocab("German") = vocG
            rowVocab("Italian") = vocI
            rowVocab("Date") = Date.Now
            rowVocab("Visible") = 1
            tableVocab.Rows.Add(rowVocab)
            rowCount = rowCount + 1
            Exit For
        End If
    Next
Loop
sReader.Close()

Dim key As String
key = txtListSearch.Text
 
datasetVocab.Tables(1).Clear()
rowCount = 1
 
Dim found() As System.Data.DataRow = tableVocab.Select("German like '%" & key & _
  "%'")
 
For i As Integer = 0 To found.GetUpperBound(0)
    ListBox1.Items.Add(found(i).Item("German") & " / " & found(i).Item( _
      "Italian"))
 
    rowVocab = datasetVocab.Tables(1).NewRow()
    rowVocab("ID") = rowCount
    rowVocab("German") = found(i).Item("German")
    rowVocab("Italian") = found(i).Item("Italian")
    rowVocab("Date") = Date.Now
    rowVocab("Visible") = 1
    tableVocabSearch.Rows.Add(rowVocab)
    DataGrid2.DataSource = tableVocabSearch
    rowCount = rowCount + 1
 
Next i
 
tableVocabSearch.DefaultView.Sort = "German ASC"
DataGrid2.DataSource = tableVocabSearch