[Doctor GME]

بسم الله الرحمن الرحيم
باختصار شديد لدى برنامج قاموس يستخدم ملف txt كقاعدة بيانات كالتالى:



وأريد أن أحوله لقاعدة بيانات أكسس تحتوى على عمودين وأريد مساعدة فى تعديل الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If RadioButton1.Checked = True And CheckBox1.Checked = True And ComboBox1.Text = "Eng to Ar" Then
           Using reader As StreamReader = New StreamReader("Subtitles.txt")
               Dim line As String = reader.ReadLine
               Dim translatedText As String = TextBox1.Text
               While (line IsNot Nothing)
                   Dim words As String() = line.Split("\")
                   Dim word As String
                   For Each word In words
                       If words.Length = 2 And translatedText.Contains(word) Then
                           translatedText = translatedText.Replace(word, words(+1))
                       End If
                   Next
                   line = reader.ReadLine
               End While
               TextBox2.Text = translatedText
           End Using

علماً بأن button1 هو المسئول على الترجمة
شكراً لكم مقدماً