مقارنة جمله مأخوذه من ملف نصي بقاعدة بيانات

السلام عليكم

عندي برنامج وماعرفت اتعامل مع قواعد البيانات فيه

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

البرنامج يقوم بفتح ملف نصي وعرض محتوياته بمربع نص (هذا بسيط وقمت بعمله)

وهذا كوده ومافيه اي مشكله

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim textfile1 As New StreamReader("D:\lab3.txt")
Dim line As String
Do
line = textfile1.ReadLine()
TextBox1.Text = TextBox1.Text + line + vbCrLf

Loop Until line Is Nothing
textfile1.Close()
End Sub

قراءه اول كلمه من السطر وتحديد انتمائها لاي جدول(سيبحث في قاعدة البيانات وانا لااستطيع التعامل مع دوال البحث في DB)

اذا كانت من جدولPOT يزداد العداد الاول بواحد

اذا كانت من جدولMOT يزداد العداد الثاني بواحد

في كلتا الحالتين يعود لقراءة السطر التالي

فقط يقوم البرنامج بعرض قيمة العدادين..

انا قمت بعمل نفس البرنامج ولكن بدون DB يبحث عن تعليمه MOV ويعرض العداد هو اكيد بنفس الطريقه ولكن DB هي اللي معقدتني.. وهذا الكود السابق لزر يعرض العداد

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim reader As New StreamReader("d:\lab2.txt")
Dim oneword As String = ""
Dim count_mov As String
Dim line As String
Dim i As Integer = 0

Dim j As Integer = 0
line = reader.ReadLine
Do
i = i + 1
count_mov = Mid(line, i, 1)
If count_mov = " " Then
line = reader.ReadLine()
i = 0
If oneword = "mov" Then
oneword = ""
j = j + 1
Else
oneword = ""
End If
Else
oneword = oneword + count_mov
End If

Loop Until line Is Nothing
Label2.Text = j
End Sub

وهذا الملف النصي

وان شاء الله خير

lab3.txt