لطلبة الادو.نت طريقه ربط vb.net مع الاكسس لعمل قاموس عربي انجليزي

 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Me.R_2.Checked = True Then
            ds = Search1("dic", "E", Me.TextBox1.Text.Trim)
        End If
        If Me.R_1.Checked = True Then
            ds = Search1("dic", "A", Me.TextBox1.Text.Trim)
        End If
        If ds.Tables(0).Rows.Count <= 0 Then
        MessageBox.Show"لم يتم العثور على بيانات", "رسالة تحذير", MessageBoxButtons.OK, MessageBoxIcon.Information
            Me.TextBox1.Text = ""
            Me.TextBox1.Focus()
            DataGridView1.Refresh()
            DataGridView1.DataSource = Nothing
            Exit Sub
        Else
            Me.DataGridView1.DataSource = DS.Tables(0)
        End If
    End Sub

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        DS.Clear()
        TextBox1.Text = ""
    End Sub

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim m As String
        m = "  القـاموس العصـــري لعــــام  2009" & vbCrLf
        m &= "تصميم الطالب محمد هابيل" & vbCrLf
        m &= "المعهد العالي للمهن الشاملة" & vbCrLf
        m &= "Mobile NO .  01234567" & vbCrLf
        m &= "Email - [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]" & vbCrLf

        MsgBox(m)
    End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As String
        x = MsgBox("هل تريد الخروج ؟", MsgBoxStyle.YesNo  MsgBoxStyle.Question, "رساله تأكيد")
        If x = vbYes Then
            Me.Dispose()
        End If
    End Sub