كيف تربط قاعدة بيانات مع الاكسس

Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click

'================================التأكد من الارقام===================================

If IsNumeric(TextBox7.Text) = False Then

Label14.Text = "الرجاء ادخل ارقام فقط"

Else

Label14.Text = ""

Dim nu1 As Integer = Convert.ToInt32(TextBox7.Text)

'=======================الاتصال بقاعدة البينات==============================================

Dim dbconn As Data.OleDb.OleDbConnection

dbconn = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source=" & ("zzz.mdb"))

dbconn.Open()

'============================================= جمل الادخال sql ==================================================

Dim sql2 As String = "insert into gggg (aaa , hhh) values (" & nu1 & ",'" & TextBox11.Text.ToString & "')"

Dim command2 As New System.Data.OleDb.OleDbCommand(sql2, dbconn)

Dim dr2 As System.Data.OleDb.OleDbDataReader = command2.ExecuteReader()

End If

End Sub