[الطالب]

سلام

كودك الاول سليم لكن تاكد تطلب رقم موجود فعلا في قاعدت البيانات
لم انظر لتعديلات ردك الاخير لضيق الوقت

كود :

Try
        Using conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
            Using dAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [Rent_Equipment] WHERE [Cus_ID] = @Cus_ID ", conn)
                dAdapter.SelectCommand.Parameters.AddWithValue("@Cus_ID", Val(ComboBox1.Text))
                Using dTable As New DataTable
                    If dAdapter.Fill(dTable) > 0 Then
                        Dim row As DataRow = dTable.Rows(0)
                        TextBox1.Text = row("Cus_Name")
                        TextBox2.Text = row("Cus_Private_Number")
                    End If
                End Using
            End Using
        End Using
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Error 123", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try

موفقين