How can i transfer data in usercontrol to other usercontrol in VB

I’m trying to control a second user control form with this code.

` Public Sub LoadCandidateData(candidateID As Integer)
Dim editCandidateForm As New databankEditcandidate()

    Using connection As OleDbConnection = DatabaseManager.GetConnection()
        Try
            connection.Open()
            Dim query As String = "SELECT * FROM dataBank WHERE ID = @CandidateID"
            Using command As New OleDbCommand(query, connection)
                command.Parameters.AddWithValue("@CandidateID", candidateID)

                Using reader As OleDbDataReader = command.ExecuteReader()
                    If reader.Read() Then
                        editCandidateForm.ApplicantNameText = reader("applicantName").ToString()
                        editCandidateForm.id = reader("ID")
                    End If
                End Using
            End Using
            MessageBox.Show("Loaded applicant name: " & candidateID & editCandidateForm.ApplicantNameText)
            'get message to check if candidateID is not empty
        Catch ex As Exception
            MessageBox.Show("Error loading candidate data: " & ex.Message)
        Finally
            connection.Close()
        End Try
    End Using
    ShowsDatabankAddcandidateUserControl()
End Sub`

I want to execute this code to transfer the ID and name to my second user control so that I can retrieve them.

` Private _candidateID As Integer

Public Property CandidateID As Integer
    Get
        Return _candidateID
    End Get
    Set(value As Integer)
        _candidateID = value
    End Set
End Property
Public Property ApplicantNameText As String
    Get
        Return applicantNameTxt.Text
    End Get
    Set(value As String)
        applicantNameTxt.Text = value
    End Set
End Property
Public Property id As String
    Get
        Return idTxt.Text ' Return the value of the applicantNameTxt control or the actual ID field.
    End Get
    Set(value As String)
        idTxt.Text = value
    End Set
End Property




Public Sub LoadCandidateData()
    Dim editCandidateForm As New databankEditcandidate()
    editCandidateForm.CandidateID = _candidateID
    Try
        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\HR-Recruitment-System\bin\Debug\recruitmentDatabase.accdb"

        Using connection As New OleDbConnection(connectionString)
            connection.Open()
            Dim query As String = "SELECT * FROM dataBank WHERE ID = @ID"
            Using command As New OleDbCommand(query, connection)
                command.Parameters.AddWithValue("@ID", idTxt.Text)

                Using reader As OleDbDataReader = command.ExecuteReader()
                    If reader.Read() Then
                        ' Retrieve and populate the form fields with candidate data.
                        applicantNameTxt.Text = reader("applicantName").ToString()
                        applicantNationalityTxt.Text = reader("applicantNationality").ToString()
                        applicantGenderTxt.Text = reader("applicantGender").ToString()
                        applicantAgeTxt.Text = reader("applicantAge").ToString()
                        applicantContactTxt.Text = reader("applicantContact").ToString()
                        applicantEmailTxt.Text = reader("applicantEmail").ToString()
                        applicantEducationTxt.Text = reader("applicantEducation").ToString()
                        applicantYearsofExperienceTxt.Text = reader("applicantYearsOfExperience").ToString()
                        applicantPreviouscompanyTxt.Text = reader("applicantPreviousCompany").ToString()
                        applicantPreviouspositionTxt.Text = reader("applicantPreviousPosition").ToString()
                        applicantAppliedTxt.Text = reader("applicantApplied").ToString()
                        applicantCurrentlocationTxt.Text = reader("applicantCurrentLocation").ToString()
                        ComboBox1.Text = reader("applicantLineupStatus").ToString()
                        applicantLineupremarksTxt.Text = reader("applicantLineupRemarks").ToString()
                        ComboBox2.Text = reader("applicantSource").ToString()
                        ComboBox3.Text = reader("applicantDateSource").ToString()
                        ComboBox4.Text = reader("applicantStatus").ToString()
                    End If
                End Using
            End Using
        End Using
    Catch ex As Exception
        MessageBox.Show("Error loading candidate data: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub`

I want to display the data using MessageBox.Show when the CandidateID and ID have a value of 0.

I want to retrieve personal information from the database via a UserControl named ‘UserProfileCard’ and then display the information in a second UserControl named ‘DataBankEditCandidate’.