سؤال: عن قواعد البيانات

يمكنك عمل الكود التالى فى الزر Find

  Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
		Dim OleDbConnection1 As New OleDb.OleDbConnection
		OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\db1.mdb;Persist Security Info=True;Jet OLEDB:Database Password="
		Dim cmdCode As New OleDb.OleDbCommand("select FirstName from Table1 where CustomerID =" & TextBox1.Text, OleDbConnection1)
		OleDbConnection1.Open()
		Dim CustName As String = cmdCode.ExecuteScalar
		OleDbConnection1.Close()
		MessageBox.Show(CustName)
	End Sub