الربط بين الفيجوال بيسك و قاعدة البيانات و عرضها

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

هذا كود البحث باستخدام SQL داتا بيز وان شاء الله يفيدك

 Dim newConn As New SqlConnection("server =.\SQLEXPRESS; Database =YourDB; integrated security = true")
        newConn.Open()
        Dim ShowAllDataCmd As New SqlClient.SqlCommand("SELECT * FROM Users " _
                & " WHERE UserID='" & Trim(UserID.Text) & "'", newConn)
        Dim SC As SqlClient.SqlDataReader
        SC = ShowAllDataCmd.ExecuteReader
        If SC.HasRows = False Then Exit Sub
        Do While SC.Read

            UserID.Text = SC.Item("ID")
            Username.Text = SC.Item("Username")
            UserPass.Text = SC.Item("Password")
            UserEmail.Text = SC.Item("Email")

        Loop
        SC.Close()
        newConn.Close()

على افتراض ان الحقول في الداتا بيز هي

ID والتكست بوكس المقابل له = UserID.Text

Username والتكست بوكس المقابل له = Username.Text

Password والتكست بوكس المقابل له = UserPass.Text

Email والتكست بوكس المقابل له = UserEmail.Text

^^^

ما ضبط معي

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

بس اذا فتحت قاعدة البيانات " اكسس " ما القى الاضافه ..

وش الحل ؟