شباب ارجو معرفه ما الخطئ فى كود الاتصال بقاعده البيانات

بسم الله الرحمن الرحيم

ارجو من حضراتكم معرفه ما الخطئ فى كود الاتصال بقاعده البيانات

Imports System.Data.OleDb
Imports System.Data

Public Class cus
    Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Application.StartupPath & "me.accdb"
    Dim conn As New OleDbConnection(Constraint)
    Dim DataSet1 As New DataSet
    Dim DataAdapter1 As OleDbDataAdapter
    Dim cmd As New OleDbCommand
    Dim SQLSTER As String = "SELECT * FORM cus"

    Private Property vbYasNo As MsgBoxStyle

    Property Constraint As String

    Private Sub cus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtid.DataBindings.Add("Text", DataSet1, "cus.cusID")
        txtname.DataBindings.Add("Text", DataSet1, "cus.cusName")
        txtaddr.DataBindings.Add("Text", DataSet1, "cus.cusAddress")
        txtphone.DataBindings.Add("Text", DataSet1, "cus.cusPhone")

   
    End Sub
[attachment=155483:Whole screen.png]