Dim connection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Lavoro.mdb")
        Dim command As New OleDbCommand("SELECT * FROM Lavoro WHERE ID = @ID")

        Try

            command.Parameters.Add("@ID", OleDbType.Integer).Value = Label3.Text

            connection.Open()

            Dim myDataReader As OleDbDataReader = command.ExecuteReader

            While myDataReader.Read
                nomeTextBox.Text = myDataReader.Item(1).ToString
                cognomeTextBox.Text = myDataReader.Item(2).ToString
            End While

            connection.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try